external set_markup : [>`messagedialog] obj -> string -> unit = "ml_gtk_message_dialog_set_markup"