snapshot

[helm.git] / helm / matita / matitaMathView.ml

diff --git a/helm/matita/matitaMathView.ml b/helm/matita/matitaMathView.ml
index 4dc34cfa1e074fdaff1f5d047cd10c6e73127949..c0da0447dd469f16f0d8cc4a56ffe5b19835087c 100644 (file)
--- a/helm/matita/matitaMathView.ml
+++ b/helm/matita/matitaMathView.ml
@@ -51,6 +51,12 @@ class proof_viewer obj =
 
 (*   initializer self#set_log_verbosity 3 *)
 
+  initializer
+    ignore (self#connect#click (fun (gdome_elt, _, _, _) ->
+      match gdome_elt with
+      | Some gdome_elt -> ignore (self#action_toggle gdome_elt)
+      | None -> ()))
+
   val mutable current_infos = None
   val mutable current_mathml = None
 
@@ -65,6 +71,8 @@ class proof_viewer obj =
       ApplyTransformation.mml_of_cic_object ~explode_all:true
         (unopt_uri uri_opt) annobj ids_to_inner_sorts ids_to_inner_types
     in
+    debug_print "load_proof: dumping MathML to /tmp/proof";
+    ignore (Misc.domImpl#saveDocumentToFile ~name:"/tmp/proof" ~doc:mathml ());
     match current_mathml with
     |  None ->
         debug_print "no previous MathML";