external create : ?parent:[>`window] obj -> message_type:Gtk.Tags.message_type -> buttons:Gtk.Tags.buttons -> message:string -> unit -> message_dialog obj = "ml_gtk_message_dialog_new"