the case Appl Meta vs t was not executed in case t was a Constant,Mutcase,Cofix,Fix...

[helm.git] / helm / matita / matitaGuiTypes.mli

diff --git a/helm/matita/matitaGuiTypes.mli b/helm/matita/matitaGuiTypes.mli
index c4c1007b76e261357ada261d3f97a2a7e9e4edd0..963bb4698a4ec80a48df645efd83b71c31949d50 100644 (file)
--- a/helm/matita/matitaGuiTypes.mli
+++ b/helm/matita/matitaGuiTypes.mli
@@ -96,22 +96,27 @@ object
     (** set hyperlink callback. None disable hyperlink handling *)
   method set_href_callback: (string -> unit) option -> unit
   
-  method string_of_selected_terms: string
+  method string_of_selections: string list
+  method string_of_selection: string option (* last selected node *)
 
   method update_font_size: unit
 end
 
-class type sequentViewer =
+class type cicMathView =
 object
   inherit clickableMathView
 
     (** load a sequent and render it into parent widget *)
   method load_sequent: Cic.metasenv -> int -> unit
+
+  method load_object: Cic.obj -> unit
 end
 
 class type sequentsViewer =
 object
   method reset: unit
+  method load_logo: unit
+  method load_logo_with_qed: unit
   method load_sequents: ProofEngineTypes.status -> unit
   method goto_sequent: int -> unit  (* to be called _after_ load_sequents *)
 end
@@ -121,5 +126,6 @@ object
   method load: MatitaTypes.mathViewer_entry -> unit
   (* method loadList: string list -> MatitaTypes.mathViewer_entry -> unit *)
   method loadInput: string -> unit
+  method mathView: clickableMathView
 end