X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGui.mli;h=dfb93cd1880248fd8df732a2a395edc950b8055e;hb=142d3076f2a4dc17d9045c2bba4d4b01eddfd008;hp=87a5c05de4fde0e2db055fb21908142479116ff8;hpb=07dde6f87105c18b28fc784b7d596a5d242e1225;p=helm.git diff --git a/helm/matita/matitaGui.mli b/helm/matita/matitaGui.mli index 87a5c05de..dfb93cd18 100644 --- a/helm/matita/matitaGui.mli +++ b/helm/matita/matitaGui.mli @@ -36,25 +36,46 @@ class gui : string -> object - method setQuitCallback : (unit -> unit) -> unit + method setQuitCallback : (unit -> unit) -> unit + method setPhraseCallback : (string -> bool) -> unit - (** {2 Access to low-level GTK widgets} *) + (** {2 Access to lower-level GTK widgets} *) method about : MatitaGeneratedGui.aboutWin + method check : MatitaGeneratedGui.checkWin method fileSel : MatitaGeneratedGui.fileSelectionWin method main : MatitaGeneratedGui.mainWin method proof : MatitaGeneratedGui.proofWin + method script: MatitaGeneratedGui.scriptWin method toolbar : MatitaGeneratedGui.toolBarWin + (** {2 Access to GUI useful components} *) + + method console: MatitaConsole.console + (** {2 Dialogs instantiation} * methods below create a new window on each invocation. You should * remember to destroy windows after use *) - method newUriDialog : unit -> MatitaGeneratedGui.uriChoiceDialog - method newInterpDialog : unit -> MatitaGeneratedGui.interpChoiceDialog - method newConfirmationDialog : - title:string -> msg:string -> unit -> - MatitaGeneratedGui.confirmationDialog + 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 + + (** lock script text view from the beginning to the given offset (in UTF-8 + * characters) *) + method lockScript: int -> unit end + (** singleton instance of the gui *) +val instance: unit -> gui +