X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fmatita.ml;h=ade151a6900d28e0c395d6a44cb329d5442fc853;hb=3b518dfa49ead4148b3997406da09c4a63c87cb2;hp=93441ed83fc5627e64927a7d33e7c26a54b34905;hpb=00f04989b1a7792a7cf34deed1a4305d290808d0;p=helm.git diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml index 93441ed83..ade151a69 100644 --- a/helm/matita/matita.ml +++ b/helm/matita/matita.ml @@ -32,11 +32,10 @@ open MatitaMisc (** {2 Initialization} *) let _ = - Helm_registry.load_from "matita.conf.xml"; (* read conf *) + Helm_registry.load_from BuildTimeConf.matita_conf; Http_getter.init (); MetadataTypes.ownerize_tables (Helm_registry.get "matita.owner"); -(* MatitaDb.clean_owner_environment (); - MatitaDb.create_owner_environment (); *) + MatitaDb.create_owner_environment (); GtkMain.Rc.add_default_file BuildTimeConf.gtkrc_file; (* loads gtk rc *) ignore (GMain.Main.init ()); @@ -87,6 +86,10 @@ let script = () ~id:"boh?" uris with MatitaTypes.Cancel -> []) ~set_star:gui#setStar + ~ask_confirmation: + (fun ~title ~message -> + MatitaGtkMisc.ask_confirmation ~title ~message + ~parent:gui#main#toplevel ()) () (* math viewers *) @@ -144,12 +147,6 @@ let _ = (MatitaMathView.sequentViewer_instance ())#get_selected_terms); addDebugItem "dump getter settings" (fun _ -> prerr_endline (Http_getter_env.env_to_string ())); - addDebugItem "getter: update" - (fun _ -> - ignore (Thread.create (fun () -> - MatitaLog.message "Rebuilding getter maps in background ..."; - Http_getter.update (); - MatitaLog.message "Getter maps successfully rebuilt.") ())); addDebugItem "getter: getalluris" (fun _ -> List.iter prerr_endline (Http_getter.getalluris ())); addDebugItem "dump script status" script#dump; @@ -180,11 +177,7 @@ let _ = (** *) let _ = - at_exit - (fun () -> - Http_getter_logger.log "Sync map tree to disk..."; - Http_getter.sync_dump_file (); - print_endline "\nThanks for using Matita!\n"); + at_exit (fun () -> print_endline "\nThanks for using Matita!\n"); Sys.catch_break true; (try gui#loadScript Sys.argv.(1);