X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fmatita.ml;h=7312602fa813490060bc47db3cfbd6d52e6adf2a;hb=861d99cbe515be1a8e6ca204c2cafa40ccdec8a3;hp=72b82839d95823175cb80a604ea21c3d76c97784;hpb=b9a7832bdd58be9ab5b9547af880bea152f2c3ce;p=helm.git

diff --git a/matita/matita/matita.ml b/matita/matita/matita.ml
index 72b82839d..7312602fa 100644
--- a/matita/matita/matita.ml
+++ b/matita/matita/matita.ml
@@ -82,15 +82,15 @@ let init_debugging_menu gui =
 *)
     addDebugSeparator ();
     addDebugCheckbox "high level pretty printer" ~init:true
-      (fun mi () -> assert false (* MATITA 1.0 *));
-    addDebugSeparator ();
-    addDebugItem "always show all disambiguation errors"
-      (fun _ -> MatitaGui.all_disambiguation_passes := true);
-    addDebugItem "prune disambiguation errors"
-      (fun _ -> MatitaGui.all_disambiguation_passes := false);
+      (fun mi () -> ApplyTransformation.use_high_level_pretty_printer := mi#active);
     addDebugSeparator ();
+    addDebugCheckbox "prune errors"
+      (fun mi () -> MatitaGui.all_disambiguation_passes := not (mi#active));
+    (*MATITA 1.0: ??? addDebugItem "prune disambiguation errors"
+      (fun _ -> MatitaGui.all_disambiguation_passes := false);*)
     addDebugCheckbox "multiple disambiguation passes" ~init:true
       (fun mi () -> MultiPassDisambiguator.only_one_pass := mi#active);
+    addDebugSeparator ();
     addDebugCheckbox "tactics logging" 
       (fun mi () -> NTacStatus.debug := mi#active);
     addDebugCheckbox "disambiguation/refiner/unification/metasubst logging"