-let _ =
- ignore (gui#main#newCicBrowserMenuItem#connect#activate (fun _ ->
- ignore (MatitaMathView.cicBrowser ())));
- (* font sizes *)
- ignore (gui#main#increaseFontSizeMenuItem#connect#activate (fun _ ->
- gui#increaseFontSize ();
- MatitaMathView.increase_font_size ();
- MatitaMathView.update_font_sizes ()));
- ignore (gui#main#decreaseFontSizeMenuItem#connect#activate (fun _ ->
- gui#decreaseFontSize ();
- MatitaMathView.decrease_font_size ();
- MatitaMathView.update_font_sizes ()));
- ignore (gui#main#normalFontSizeMenuItem#connect#activate (fun _ ->
- 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 ());
- MatitaDisambiguator.set_choose_interp_callback
- (MatitaGui.interactive_interp_choice ())
-