X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaGuiTypes.mli;h=f75769fb0daccdc65168e3160db4716770e7a0f0;hb=f8b4eb67c2437f7b5174d7dca46e102e0ac0d19d;hp=fa62970cef6c0835a74561ff0fcf23e59d02955e;hpb=0c69106b8cf67a0baad545a9d7b0816b2b7de8ac;p=helm.git diff --git a/matita/matita/matitaGuiTypes.mli b/matita/matita/matitaGuiTypes.mli index fa62970ce..f75769fb0 100644 --- a/matita/matita/matitaGuiTypes.mli +++ b/matita/matita/matitaGuiTypes.mli @@ -23,55 +23,12 @@ * 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 console: console - - (** {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 + 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 newScript: unit -> unit method loadScript: string -> unit end @@ -86,8 +43,3 @@ object method goto_sequent: #ApplyTransformation.status -> int -> unit (* to be called _after_ load_sequents *) end - -class type cicBrowser = -object - method load: MatitaTypes.mathViewer_entry -> unit -end