add conf key matita.debug_menu

diff --git a/helm/software/matita/matita.ml b/helm/software/matita/matita.ml
index b39eb85313030bb475af71efe000d7f53b27e7ab..62e425bf38b13dcb28fc0c7f7e7e553d97d113bb 100644 (file)
--- a/helm/software/matita/matita.ml
+++ b/helm/software/matita/matita.ml
@@ -105,7 +105,9 @@ let _ =
 
   (** {{{ Debugging *)
 let _ =
-  if BuildTimeConf.debug then begin
+  if BuildTimeConf.debug ||
+     Helm_registry.get_bool "matita.debug_menu" 
+  then begin
     gui#main#debugMenu#misc#show ();
     let addDebugItem ~label callback =
       let item =

diff --git a/helm/software/matita/matitaInit.ml b/helm/software/matita/matitaInit.ml
index 705108aa659304311e540d12a9e3bb567ad23e48..d8d498a32018c047cd19d93cb15e344cae3686d6 100644 (file)
--- a/helm/software/matita/matitaInit.ml
+++ b/helm/software/matita/matitaInit.ml
@@ -44,6 +44,7 @@ let conffile = ref BuildTimeConf.matita_conf
 
 let registry_defaults = [
   "matita.debug",                "false";
+  "matita.debug_menu",           "false";
   "matita.external_editor",      "gvim -f -c 'go %p' %f";
   "matita.profile",              "true";
   "matita.system",               "false";