X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2FmatitaGui.ml;h=9cde82b7535501fb100d9a3a121621fff0d1b301;hb=ba82338180592787d95e756b7feb30f71ea70a73;hp=ed739eefbebb8c9be4a9e5ab95f919166625a722;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git diff --git a/matita/matitaGui.ml b/matita/matitaGui.ml index ed739eefb..9cde82b75 100644 --- a/matita/matitaGui.ml +++ b/matita/matitaGui.ml @@ -206,6 +206,8 @@ class gui () = ~website:"http://helm.cs.unibo.it" () in + connect_menu_item main#contentsMenuItem + (fun () -> ignore (Sys.command "gnome-help ghelp:///home/claudio/miohelm/matita/help/C/matita.xml &")); connect_menu_item main#aboutMenuItem about_dialog#present; (* findRepl win *) let show_find_Repl () = @@ -1133,7 +1135,7 @@ let interactive_uri_choice let gui = instance () in let nonvars_uris = lazy (List.filter (non UriManager.uri_is_var) uris) in if (selection_mode <> `SINGLE) && - (Helm_registry.get_bool "matita.auto_disambiguation") + (Helm_registry.get_opt_default Helm_registry.get_bool ~default:true "matita.auto_disambiguation") then Lazy.force nonvars_uris else begin