fixed increase/decrease size feature

diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml
index 34b41e4ccc0841a56f2a8aa172e4f523772dd4d0..40592d001eadd88b638242d60fd916bb8bcfa4f0 100644 (file)
--- a/helm/matita/matita.ml
+++ b/helm/matita/matita.ml
@@ -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 ());

diff --git a/helm/matita/matitaMathView.ml b/helm/matita/matitaMathView.ml
index 776a9ada579ce8748e8867ad98a1e22e27809ed5..5b1f4d5b39e79426ba911dc0e7bc782603a5f167 100644 (file)
--- a/helm/matita/matitaMathView.ml
+++ b/helm/matita/matitaMathView.ml
@@ -76,7 +76,6 @@ class clickableMathView obj =
     method set_href_callback f = href_callback <- f
 
     initializer
-      current_font_size := default_font_size ();
       self#set_font_size !current_font_size;
       ignore (self#connect#selection_changed self#choose_selection);
       ignore (self#connect#click (fun (gdome_elt, _, _, _) ->