object val virtual obj : [> `messagedialog ] Gobject.obj method message_type : GtkEnums.message_type method set_message_type : GtkEnums.message_type -> unit end