Observe:
Code: Select all
sub TGtkApplication.MessageBox( byref title as string = "Message", byref text as string = "" )
var msgdlg = gtk_message_dialog_new_with_markup( 0, GTK_DIALOG_MODAL, GTK_MESSAGE_INFO, GTK_BUTTONS_OK, "" )
gtk_window_set_title(GTK_WINDOW(msgdlg), title)
gtk_message_dialog_set_markup(GTK_MESSAGE_DIALOG(msgdlg), text)
gtk_dialog_run(GTK_DIALOG(msgdlg))
gtk_widget_destroy(GTK_WIDGET(msgdlg))
end sub