`sig
val cast : 'a Gobject.obj -> Gtk.dialog Gtk.obj
module P = GtkBaseProps.Dialog.P
module S = GtkBaseProps.Dialog.S
val create : Gtk.dialog Gobject.param list -> Gtk.dialog Gtk.obj
external action_area : [> `dialog ] Gtk.obj -> Gtk.button_box Gtk.obj
= "ml_GtkDialog_action_area"
external vbox : [> `dialog ] Gtk.obj -> Gtk.box Gtk.obj
= "ml_GtkDialog_vbox"
external add_button : [> `dialog ] Gtk.obj -> string -> int -> unit
= "ml_gtk_dialog_add_button"
external response : [> `dialog ] Gtk.obj -> int -> unit
= "ml_gtk_dialog_response"
external set_response_sensitive :
[> `dialog ] Gtk.obj -> int -> bool -> unit
= "ml_gtk_dialog_set_response_sensitive"
external set_default_response : [> `dialog ] Gtk.obj -> int -> unit
= "ml_gtk_dialog_set_default_response"
external run : [> `dialog ] Gtk.obj -> int = "ml_gtk_dialog_run"
val std_response : GtkEnums.response -> int
val decode_response : int -> GtkEnums.response
end`