MetadataTypes.ownerize_tables (Helm_registry.get "matita.owner");
MatitaDb.clean_owner_environment ();
MatitaDb.create_owner_environment ();
- GtkMain.Rc.add_default_file BuildTimeConf.gtkrc; (* loads gtk rc files *)
+ GtkMain.Rc.add_default_file BuildTimeConf.gtkrc_file; (* loads gtk rc *)
ignore (GMain.Main.init ());
(* environment trust *)
let script =
MatitaScript.script
- ~buffer:gui#main#scriptTextView#buffer
+ ~buffer:gui#sourceView#buffer
~init:(Lazy.force MatitaEngine.initial_status)
~mathviewer:(MatitaMathView.mathViewer ())
~urichooser:(fun uris ->
~title:"Matita: URI chooser"
~msg:"Select the URI" ~hide_uri_entry:true
~hide_try:true ~ok_label:"_Apply" ~ok_action:`SELECT
- ~copy_cb:(fun s -> gui#main#scriptTextView#buffer#insert ("\n"^s^"\n"))
+ ~copy_cb:(fun s -> gui#sourceView#buffer#insert ("\n"^s^"\n"))
() ~id:"boh?" uris
with MatitaTypes.Cancel -> [])
()
(fun _ ->
if script#onGoingProof () then
MatitaLog.debug (CicMetaSubst.ppmetasenv script#proofMetasenv []));
+ addDebugItem "dump coercions Db" (fun _ ->
+ List.iter (
+ fun (s,t,u) ->
+ MatitaLog.debug (
+ UriManager.name_of_uri u ^ ":" ^
+ UriManager.name_of_uri s ^ " -> " ^ UriManager.name_of_uri t))
+ (CoercDb.to_list ())
+ );
addDebugItem "rotate light bulbs"
(fun _ ->
let nb = gui#main#hintNotebook in
if Filename.basename Sys.argv.(0) = "cicbrowser" then begin (* cicbrowser *)
Helm_registry.set "matita.mode" "cicbrowser";
let browser = MatitaMathView.cicBrowser () in
- try
- browser#load (`Uri Sys.argv.(1))
- with Invalid_argument _ -> ()
+ let entry =
+ try
+ `Uri Sys.argv.(1)
+ with Invalid_argument _ -> `Dir "cic:/"
+ in
+ browser#load entry
end else begin (* matita *)
Helm_registry.set "matita.mode" "matita";
gui#main#mainWin#show ();