X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGui.mli;h=d3dc10a1dc873b6f9d82070e3564b164321d0dc6;hb=275727242ccdce9df01af65f3bfb2d65283fa197;hp=60ab37a65660b26dce1108785b09ec43c5f0c015;hpb=56415e42c04f40e9c8f7cfc59a3a3d87c3d373f7;p=helm.git diff --git a/helm/matita/matitaGui.mli b/helm/matita/matitaGui.mli index 60ab37a65..d3dc10a1d 100644 --- a/helm/matita/matitaGui.mli +++ b/helm/matita/matitaGui.mli @@ -42,9 +42,11 @@ class gui : (** {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} *) @@ -60,5 +62,20 @@ class gui : 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 +