sig
  val cast : 'a Gobject.obj -> Gtk.message_dialog Gtk.obj
  module P :
    sig
      val buttons :
        ([> `messagedialog ], GtkEnums.buttons_type) Gobject.property
      val message_type :
        ([> `messagedialog ], GtkEnums.message_type) Gobject.property
    end
  external create :
    ?parent:[> `window ] Gtk.obj ->
    message_type:Gtk.Tags.message_type ->
    buttons:Gtk.Tags.buttons ->
    message:string -> unit -> Gtk.message_dialog Gtk.obj
    = "ml_gtk_message_dialog_new"
  external set_markup : [> `messagedialog ] Gtk.obj -> string -> unit
    = "ml_gtk_message_dialog_set_markup"
end