X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fmatita.ml;h=189259621463120353fa4a1e9155ee55ff99d1f0;hb=refs%2Fheads%2Fmaster;hp=d32f69cf01852512ce2c26e82afa4c8a23b44c84;hpb=f799225a710e609a59e398eb8d6d45dad7c62f61;p=helm.git

diff --git a/matita/matita/matita.ml b/matita/matita/matita.ml
index d32f69cf0..189259621 100644
--- a/matita/matita/matita.ml
+++ b/matita/matita/matita.ml
@@ -25,11 +25,6 @@
 
 (* $Id$ *)
 
-open Printf
-
-open MatitaGtkMisc
-open GrafiteTypes
-
 (** {2 Initialization} *)
 
 let _ = 
@@ -37,7 +32,8 @@ let _ =
     ["-tptppath",Arg.String 
       (fun s -> Helm_registry.set_string "matita.tptppath" s),
       "Where to find the Axioms/ and Problems/ directory"];
-  MatitaInit.initialize_all ()
+  MatitaInit.initialize_all ();
+  MatitaMisc.reset_font_size ()
 ;;
 
 let _ =
@@ -110,9 +106,9 @@ let init_debugging_menu gui =
 
 let _ =
   at_exit (fun () -> print_endline "\nThanks for using Matita!\n");
-  Sys.catch_break true;
   let args = Helm_registry.get_list Helm_registry.string "matita.args" in
   let gui = MatitaGui.instance () in
+  Sys.set_signal Sys.sigint (Sys.Signal_handle(fun _ -> gui#kill_worker ()));
   init_debugging_menu gui;
   List.iter gui#loadScript (List.rev args);
   gui#main#mainWin#show ();