X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGui.mli;h=90cb814a14607406fbe16c6d82fa50bdcfa0ad6d;hb=fdd8107cc53f5e862004aa5fcd48593ee5634234;hp=734f1cefe3c7810baad27b956ce149eb110b8368;hpb=c5d4ad1c98c1434b95a8a9b1c8697dd36cf39623;p=helm.git diff --git a/helm/matita/matitaGui.mli b/helm/matita/matitaGui.mli index 734f1cefe..90cb814a1 100644 --- a/helm/matita/matitaGui.mli +++ b/helm/matita/matitaGui.mli @@ -23,33 +23,46 @@ * http://helm.cs.unibo.it/ *) -(* -class type stringListModel = - object - method clear: unit -> unit - method append: string -> unit - end -*) - (** @param fname name of the Glade file describing the GUI *) class gui : string -> object - method setQuitCallback : (unit -> unit) -> unit + method setQuitCallback : (unit -> unit) -> unit + method setPhraseCallback : (string -> MatitaTypes.command_outcome) -> unit - method uriChoices: MatitaGtkMisc.stringListModel - - (** {2 Access to low-level GTK widgets} *) + (** {2 Access to singleton instances of lower-level GTK widgets} *) method about : MatitaGeneratedGui.aboutWin - method dialog : MatitaGeneratedGui.genericDialog method fileSel : MatitaGeneratedGui.fileSelectionWin - method interpChoice : MatitaGeneratedGui.interpChoiceDialog method main : MatitaGeneratedGui.mainWin - method proof : MatitaGeneratedGui.proofWin + method script: MatitaGeneratedGui.scriptWin method toolbar : MatitaGeneratedGui.toolBarWin - method uriChoice : MatitaGeneratedGui.uriChoiceDialog + + (** {2 Access to GUI useful components} *) + + method console: MatitaTypes.console + + (** {2 Dialogs instantiation} + * methods below create a new window on each invocation. You should + * remember to destroy windows after use *) + + method newBrowserWin: unit -> MatitaGeneratedGui.browserWin + method newUriDialog: unit -> MatitaGeneratedGui.uriChoiceDialog + method newInterpDialog: unit -> MatitaGeneratedGui.interpChoiceDialog + method newConfirmationDialog: unit -> MatitaGeneratedGui.confirmationDialog + method newEmptyDialog: unit -> MatitaGeneratedGui.emptyDialog + + (** {2 Utility methods} *) + + (** ask the used to choose a file with the file chooser *) + method chooseFile: unit -> string option + + (** prompt the user for a (multiline) text entry *) + method askText: ?title:string -> ?msg:string -> unit -> string option end + (** singleton instance of the gui *) +val instance: unit -> gui +