X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaGuiTypes.mli;h=c9f4f71ff21737d06511d8627ecc089a1bdc18f1;hb=79ba29ddfc90c0b9bc26e1ddde46cb94cb800d51;hp=fa62970cef6c0835a74561ff0fcf23e59d02955e;hpb=0c69106b8cf67a0baad545a9d7b0816b2b7de8ac;p=helm.git diff --git a/matita/matita/matitaGuiTypes.mli b/matita/matita/matitaGuiTypes.mli index fa62970ce..c9f4f71ff 100644 --- a/matita/matita/matitaGuiTypes.mli +++ b/matita/matita/matitaGuiTypes.mli @@ -23,17 +23,6 @@ * 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 @@ -42,35 +31,16 @@ 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 + method main: MatitaGeneratedGui.mainWin (** {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 newBrowserWin: unit -> browserWin (** {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