open MatitaTypes
open MatitaMisc
-
(* ALB to link paramodulation... *)
let _ = Paramodulation.Saturation.init ()
-
(** {2 Initialization} *)
MetadataTypes.ownerize_tables (Helm_registry.get "matita.owner");
MatitaDb.create_owner_environment ();
MatitamakeLib.initialize ();
- GtkMain.Rc.add_default_file BuildTimeConf.gtkrc_file; (* loads gtk rc *)
- GMathView.add_configuration_path BuildTimeConf.gtkmathview_conf;
- ignore (GMain.Main.init ());
CicEnvironment.set_trust (* environment trust *)
(let trust = Helm_registry.get_bool "matita.environment_trust" in
fun _ -> trust)
let gui = MatitaGui.instance ()
-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 ())
-
let script =
let s =
MatitaScript.script
- ~view:(gui#sourceView :> GText.view)
+ ~source_view:gui#sourceView
~init:(Lazy.force MatitaEngine.initial_status)
~mathviewer:(MatitaMathView.mathViewer ())
~urichooser:(fun uris ->
gui#sourceView#source_buffer#end_not_undoable_action ();
s
-
(* math viewers *)
let _ =
let sequent_viewer = MatitaMathView.sequentViewer_instance () in