X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaGuiTypes.mli;h=2c685c0ad4cfd9c51268a5bfade524383ab60368;hb=4b3a9a15edbab7a3aa819155dc1ac1eec1ddb0a3;hp=af4a6b31d9a8d234852b99a362c9fea256b40e1c;hpb=bfcde2b08d72f1392ed61164c67d199360f0397f;p=helm.git

diff --git a/matita/matita/matitaGuiTypes.mli b/matita/matita/matitaGuiTypes.mli
index af4a6b31d..2c685c0ad 100644
--- a/matita/matita/matitaGuiTypes.mli
+++ b/matita/matita/matitaGuiTypes.mli
@@ -42,17 +42,8 @@ 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
@@ -60,100 +51,27 @@ object
 
   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
-
     (** {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 newScript: unit -> unit
   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: Gdome.element option -> unit
-  method get_selections: Gdome.element 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:
-   #NCicCoercion.status -> NCic.metasenv -> NCic.substitution -> int -> 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 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
-