Large commit: refactoring of the code of the interface.

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

diff --git a/matita/matita/matitaGuiTypes.mli b/matita/matita/matitaGuiTypes.mli
index d25735d4aebf1abd36271ede520e6f1964efdd9f..8e3932b04a1882dad615859a769bf52a4ce47f18 100644 (file)
--- a/matita/matita/matitaGuiTypes.mli
+++ b/matita/matita/matitaGuiTypes.mli
@@ -49,10 +49,8 @@ object
   method fileSel :      MatitaGeneratedGui.fileSelectionWin
   method main :         MatitaGeneratedGui.mainWin
   method findRepl :     MatitaGeneratedGui.findReplWin
-(*   method toolbar :      MatitaGeneratedGui.toolBarWin *)
 
   method console:       console
-  method sourceView:    GSourceView2.source_view
 
     (** {2 Dialogs instantiation}
      * methods below create a new window on each invocation. You should
@@ -63,22 +61,6 @@ object
   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
@@ -90,67 +72,21 @@ object
   method askText: ?title:string -> ?msg:string -> unit -> string option
 
   method loadScript: string -> unit
-  method setStar: bool -> unit
-
-    (** {3 Fonts} *)
-  method increaseFontSize: unit -> unit
-  method decreaseFontSize: unit -> unit
-  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 *)
-class type clickableMathView =
-object
-  inherit GMathViewAux.multi_selection_math_view
-
-    (** set hyperlink callback. None disable hyperlink handling *)
-  method set_href_callback: (string -> unit) option -> unit
-  
-  method has_selection: bool
-
-    (** @raise Failure "no selection" *)
-  method strings_of_selection: (paste_kind * string) list
-
-  method update_font_size: unit
-end
-
-class type cicMathView =
-object
-  inherit clickableMathView
-
-    (** load a sequent and render it into parent widget *)
-  method load_sequent: Cic.metasenv -> int -> unit
-  method nload_sequent:
-   #NCicCoercion.status -> NCic.metasenv -> NCic.substitution -> int -> unit
-
-  method load_object: Cic.obj -> unit
-  method load_nobject: #NCicCoercion.status -> NCic.obj -> unit
-end
-
 class type sequentsViewer =
 object
   method reset: unit
   method load_logo: unit
   method load_logo_with_qed: unit
-  method load_sequents:
-   #NCicCoercion.status -> GrafiteTypes.incomplete_proof -> unit
-  method nload_sequents: #NTacStatus.tac_status -> unit
+  method nload_sequents: #GrafiteTypes.status -> unit
   method goto_sequent:
-   #NCicCoercion.status -> int -> unit (* to be called _after_ load_sequents *)
-
-  method cicMathView: cicMathView
+   #ApplyTransformation.status -> int -> unit (* to be called _after_ load_sequents *)
 end
 
 class type cicBrowser =
 object
   method load: MatitaTypes.mathViewer_entry -> unit
-  (* method loadList: string list -> MatitaTypes.mathViewer_entry -> unit *)
-  method loadInput: string -> unit
-  method mathView: clickableMathView
-  method win: browserWin
 end
-