class type gui =
object
method newUriDialog: unit -> MatitaGeneratedGui.uriChoiceDialog
+ method newConfirmationDialog :
+ title:string -> msg:string -> unit ->
+ MatitaGeneratedGui.confirmationDialog
end
-exception No_choice
+(** {3 Dialogs} *)
- (** @raise No_choice *)
-val interactive_user_uri_choice:
- gui:#gui ->
- selection_mode:Gtk.Tags.selection_mode -> title:string -> msg:string ->
- ?nonvars_button:bool ->
- string list ->
- string list
+ (** @raise MatitaTypes.No_choice *)
+val interactive_user_uri_choice: gui:#gui -> MatitaTypes.choose_uris_callback
+
+ (** @raise MatitaTypes.No_choice *)
+val interactive_interp_choice: gui:#gui -> MatitaTypes.choose_interp_callback
+
+ (** @return true if user hit "ok" button, false if user hit "cancel" button *)
+val ask_confirmation: gui:#gui -> ?title:string -> ?msg:string -> unit -> bool