X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGuiTypes.mli;h=1b9d17cad514f31a5be825878ead76b26405ca78;hb=4301dbaf20b68840e3bdf6a9b701d71034c91b7f;hp=14bfee4f4b29dd50d70daf86d59409640a2f056d;hpb=5c56a926588a63ceac31e6ddd6e3eeb02fadf3a9;p=helm.git

diff --git a/helm/matita/matitaGuiTypes.mli b/helm/matita/matitaGuiTypes.mli
index 14bfee4f4..1b9d17cad 100644
--- a/helm/matita/matitaGuiTypes.mli
+++ b/helm/matita/matitaGuiTypes.mli
@@ -31,7 +31,7 @@ object
   method debug: string -> unit
   method clear: unit -> unit
 
-  method log_callback: MatitaLog.log_callback
+  method log_callback: HLog.log_callback
 end
 
 class type browserWin =
@@ -62,10 +62,26 @@ object
 
   method newBrowserWin:         unit -> browserWin
   method newUriDialog:          unit -> MatitaGeneratedGui.uriChoiceDialog
-  method newInterpDialog:       unit -> MatitaGeneratedGui.interpChoiceDialog
+  method newRecordDialog:       unit -> MatitaGeneratedGui.recordChoiceDialog
   method newConfirmationDialog: unit -> MatitaGeneratedGui.confirmationDialog
   method newEmptyDialog:        unit -> MatitaGeneratedGui.emptyDialog
 
+    (** {2 Selections / clipboards handling} *)
+
+  method canCopy:         bool
+  method canCut:          bool
+  method canDelete:       bool
+  method canPaste:        bool
+  method canPastePattern: bool
+
+  method markupSelected:  bool
+
+  method copy:         unit -> unit
+  method cut:          unit -> unit
+  method delete:       unit -> unit
+  method paste:        unit -> unit
+  method pastePattern: unit -> unit
+
     (** {2 Utility methods} *)
 
     (** ask the used to choose a file with the file chooser
@@ -86,6 +102,8 @@ object
   method resetFontSize: unit -> unit
 end
 
+type paste_kind = [ `Term | `Pattern ]
+
   (** multi selection gtkMathView which handle mactions and hyperlinks. Mactions
   * are handled internally. Hyperlinks are handled by calling an user provided
   * callback *)
@@ -96,24 +114,30 @@ object
     (** set hyperlink callback. None disable hyperlink handling *)
   method set_href_callback: (string -> unit) option -> unit
   
-  method string_of_selections: string list
-  method string_of_selection: string option (* last selected node *)
+  method has_selection: bool
+
+    (** @raise Failure "no selection" *)
+  method strings_of_selection: (paste_kind * string) list
 
   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_sequents: ProofEngineTypes.status -> unit
+  method load_logo: unit
+  method load_logo_with_qed: unit
+  method load_sequents: GrafiteTypes.incomplete_proof -> unit
   method goto_sequent: int -> unit  (* to be called _after_ load_sequents *)
 end