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_gtk_dialog_get_action_area"
  external vbox : [> `dialog ] Gtk.obj -> Gtk.box Gtk.obj
    = "ml_gtk_dialog_get_content_area"
  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