X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaMathView.mli;h=ea0c077d842ef2c7ca9731df7f4d4395b79fb277;hb=771ee8b9d122fa963881c876e86f90531bb7434f;hp=bee32796ebaa0457c46f1b2a58ef64e5199f3a77;hpb=ddff8ae1e15c9fcaf83320978a5cad509d734a74;p=helm.git

diff --git a/helm/matita/matitaMathView.mli b/helm/matita/matitaMathView.mli
index bee32796e..ea0c077d8 100644
--- 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,22 @@ val reset_font_size:      unit -> unit
 val refresh_all_browsers: unit -> unit  (** act on all cicBrowsers *)
 val update_font_sizes:    unit -> unit
 
+  (** {3 Clipboard & Selection handling} *)
+
+val has_selection: unit -> bool
+
+  (** fills the clipboard with the current selection
+   * @raise Failure "no selection" *)
+val copy_selection: unit -> unit
+val has_clipboard: unit -> bool (** clipboard is not empty *)
+val empty_clipboard: unit -> unit (** empty the clipboard *)
+
+  (** @raise Failure "empty clipboard" *)
+val paste_clipboard: MatitaGuiTypes.paste_kind -> string
+
 (** {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