X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGtkMisc.mli;h=7d4e289551cce5435cea4d1e7f6bcf8d9fedbc38;hb=22d39afadb3027477e4a42c315ec10518cbf47ed;hp=32b1fe53b945c600d801cac670348def88fee90c;hpb=ccca8f161bcbe57b58e651656a4a825c5227abf2;p=helm.git diff --git a/helm/matita/matitaGtkMisc.mli b/helm/matita/matitaGtkMisc.mli index 32b1fe53b..7d4e28955 100644 --- a/helm/matita/matitaGtkMisc.mli +++ b/helm/matita/matitaGtkMisc.mli @@ -27,9 +27,17 @@ (** given a window and a check menu item it links the two so that the former * is only hidden on delete and the latter toggle show/hide of the former *) -val toggle_visibility: - win:GWindow.window -> check:GMenu.check_menu_item -> unit +val toggle_window_visibility: + window:GWindow.window -> check:GMenu.check_menu_item -> unit + + (** given a window and a check menu item it links the two so that the former + * is only hidden on delete and the latter toggle show/hide of the former *) +val toggle_widget_visibility: + widget:GObj.widget -> check:GMenu.check_menu_item -> unit +val toggle_callback: + callback:(bool -> unit) -> check:GMenu.check_menu_item -> unit + val toggle_win: ?check:GMenu.check_menu_item -> GWindow.window -> unit -> unit @@ -99,13 +107,18 @@ class type gui = (** {3 Dialogs} *) - (** @return true if user hit "ok" button, false if user hit "cancel" button - * @param cancel if set to true a cancel button is shown to the user, otherwise - * it is not (and indeed the function will return true). Defaults to true *) + (* @param parent to center the window on it *) val ask_confirmation: - gui:#gui -> - ?cancel:bool -> ?title:string -> ?msg:string -> unit -> - bool + title:string -> + message:string -> + ?parent:#GWindow.window_skel -> + unit -> [`YES | `NO | `CANCEL] + +val report_error: + title:string -> + message:string -> + ?parent:#GWindow.window_skel -> + unit -> unit (** @param multiline (default: false) if true a TextView widget will be used * for prompting the user otherwise a TextEntry widget will be