(* $Id$ *)
-open Printf
-
-open MatitaGtkMisc
-open GrafiteTypes
-
(** {2 Initialization} *)
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 _ =
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 ();