X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaGuiTypes.mli;h=f75769fb0daccdc65168e3160db4716770e7a0f0;hb=1aca50505c3ce6c76dd7d20d00e358707caffd4a;hp=f7c9a7b9fa2b82699d81ae86c5a770b12737191b;hpb=16250ed29f9200595694cd49dfc1aed76280dcb9;p=helm.git

diff --git a/matita/matita/matitaGuiTypes.mli b/matita/matita/matitaGuiTypes.mli
index f7c9a7b9f..f75769fb0 100644
--- a/matita/matita/matitaGuiTypes.mli
+++ b/matita/matita/matitaGuiTypes.mli
@@ -23,137 +23,23 @@
  * http://helm.cs.unibo.it/
  *)
 
-class type console =
-object
-  method message: string -> unit
-  method error: string -> unit
-  method warning: string -> unit
-  method debug: string -> unit
-  method clear: unit -> unit
-
-  method log_callback: HLog.log_callback
-end
-
-class type browserWin =
-object
-  inherit MatitaGeneratedGui.browserWin
-  method browserUri: GEdit.entry
-end
-
 class type gui =
 object
-  method setQuitCallback    : (unit -> unit) -> unit
-
     (** {2 Access to singleton instances of lower-level GTK widgets} *)
-
-  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
-     * remember to destroy windows after use *)
-
-  method newBrowserWin:         unit -> browserWin
-  method newUriDialog:          unit -> MatitaGeneratedGui.uriChoiceDialog
-  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
+  method main: MatitaGeneratedGui.mainWin
 
     (** {2 Utility methods} *)
-
-    (** ask the used to choose a file with the file chooser
-    * @param ok_not_exists if set to true returns also non existent files
-    * (useful for save). Defaults to false *)
-  method chooseFile: ?ok_not_exists:bool -> unit -> string option
-
-    (** prompt the user for a (multiline) text entry *)
-  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 GSourceView2.source_view
-
-  method load_root : root:string -> unit
-  method remove_selections: unit
-  method set_selection: unit option -> unit
-  method get_selections: unit list
-  method set_font_size: int -> unit
-
-
-    (** 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 nload_sequent:
-   #LexiconTypes.status -> NCic.metasenv -> NCic.substitution -> int -> unit
-
-  method load_nobject: #LexiconTypes.status -> NCic.obj -> unit
-end
-
 class type sequentsViewer =
 object
   method reset: unit
   method load_logo: unit
   method load_logo_with_qed: unit
-  method nload_sequents: #NTacStatus.tac_status -> unit
+  method nload_sequents: #GrafiteTypes.status -> unit
   method goto_sequent:
-   #LexiconTypes.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
-