ocaml 3.09 transition

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

diff --git a/helm/matita/matitaMathView.mli b/helm/matita/matitaMathView.mli
index bee32796ebaa0457c46f1b2a58ef64e5199f3a77..f5acf63497a2c3af8099f44d9e9c4bd36a45e665 100644 (file)
--- a/helm/matita/matitaMathView.mli
+++ b/helm/matita/matitaMathView.mli
@@ -40,17 +40,19 @@ type 'widget constructor =
 
 val clickableMathView:  MatitaGuiTypes.clickableMathView constructor
 
-val sequentViewer:      MatitaGuiTypes.sequentViewer constructor
+val cicMathView:        MatitaGuiTypes.cicMathView constructor
 
 val sequentsViewer:
   notebook:GPack.notebook ->
-  sequentViewer:MatitaGuiTypes.sequentViewer ->
+  cicMathView:MatitaGuiTypes.cicMathView ->
   unit ->
     MatitaGuiTypes.sequentsViewer
 
 val cicBrowser: unit -> MatitaGuiTypes.cicBrowser
 
-(** {2 Mathview wide functions} *)
+(** {2 MathView wide functions} *)
+(* TODO ZACK consider exporting here a single function which return a list of
+ * MatitaGuiTypes.clickableMathView and act on them externally ... *)
 
 val increase_font_size:   unit -> unit
 val decrease_font_size:   unit -> unit
@@ -59,9 +61,17 @@ val reset_font_size:      unit -> unit
 val refresh_all_browsers: unit -> unit  (** act on all cicBrowsers *)
 val update_font_sizes:    unit -> unit
 
+  (** {3 selection handling} *)
+
+  (* @return the selections of a (unspecified) math viewer *)
+val get_selections:       unit -> string list option
+
+  (* remove the selections of all math viewers *)
+val reset_selections:     unit -> unit
+
 (** {2 Singleton instances} *)
 
-val sequentViewer_instance:   unit -> MatitaGuiTypes.sequentViewer
+val cicMathView_instance: unit -> MatitaGuiTypes.cicMathView
 val sequentsViewer_instance:  unit -> MatitaGuiTypes.sequentsViewer
 
 val mathViewer:               unit -> MatitaTypes.mathViewer