alias declarations are now put in the .moo file.

[helm.git] / helm / matita / matita.ml

diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml
index 34b41e4ccc0841a56f2a8aa172e4f523772dd4d0..93441ed83fc5627e64927a7d33e7c26a54b34905 100644 (file)
--- a/helm/matita/matita.ml
+++ b/helm/matita/matita.ml
@@ -35,8 +35,8 @@ let _ =
   Helm_registry.load_from "matita.conf.xml";  (* read conf *)
   Http_getter.init ();
   MetadataTypes.ownerize_tables (Helm_registry.get "matita.owner");
-  MatitaDb.clean_owner_environment ();
-  MatitaDb.create_owner_environment ();
+(*  MatitaDb.clean_owner_environment ();
+  MatitaDb.create_owner_environment (); *)
   GtkMain.Rc.add_default_file BuildTimeConf.gtkrc_file; (* loads gtk rc *)
   ignore (GMain.Main.init ());
 
@@ -65,6 +65,7 @@ let _ =
     gui#resetFontSize ();
     MatitaMathView.reset_font_size ();
     MatitaMathView.update_font_sizes ()));
+  MatitaMathView.reset_font_size ();
   (* disambiguator callback *)
   MatitaDisambiguator.set_choose_uris_callback
     (MatitaGui.interactive_uri_choice ());
@@ -85,6 +86,7 @@ let script =
         ~copy_cb:(fun s -> gui#sourceView#buffer#insert ("\n"^s^"\n"))
         () ~id:"boh?" uris
       with MatitaTypes.Cancel -> [])
+    ~set_star:gui#setStar
     ()
 
   (* math viewers *)