snapshot, notably:

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

diff --git a/helm/matita/matitaMathView.ml b/helm/matita/matitaMathView.ml
index c0da0447dd469f16f0d8cc4a56ffe5b19835087c..0923622291bc2f1057aac701a544d4fe9b612962 100644 (file)
--- a/helm/matita/matitaMathView.ml
+++ b/helm/matita/matitaMathView.ml
@@ -54,7 +54,9 @@ class proof_viewer obj =
   initializer
     ignore (self#connect#click (fun (gdome_elt, _, _, _) ->
       match gdome_elt with
-      | Some gdome_elt -> ignore (self#action_toggle gdome_elt)
+      | Some gdome_elt ->
+          prerr_endline (gdome_elt#get_nodeName#to_string);
+          ignore (self#action_toggle gdome_elt)
       | None -> ()))
 
   val mutable current_infos = None