Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
GTK Pointer Problem - 2 dialog_test.bas
| Uploader: |  rieselkalk |
| Datum/Zeit: | 03.08.2010 20:58:36 |
'- rieselkalk 2010
'- dialog_test.bas
'- UTF8 Zeichensatz Ä 195 132, Ö 195 150, Ü 195 156, ß 195 159, ä 195 164, ö 195 182, ü 195 188
#Include once "gtk/gtk.bi"
gtk_set_locale()
#define NULL 0
gtk_init (0, 0)
Dim p_window_1 As GtkWidget Ptr
Dim p_my_button_ok As GtkWidget Ptr
Dim p_vbox_1 As GtkWidget Ptr
#Include Once "D:/User-Dateien/FreeBasic/User/GTK/Mini-Editor/mte_option_103.bas"
Sub mte_on_menuitem_einstellungen_activate Cdecl (ByVal widget as GtkWidget ptr, byval p_ud as gpointer Ptr)
Dim Res As gint
Res = mte_ShowOptionDialog (p_mte_od)
End Sub
p_window_1 = gtk_window_new (GTK_WINDOW_TOPLEVEL)
gtk_widget_set_name (p_window_1, "window_1")
gtk_window_set_title (GTK_WINDOW (p_window_1), ("Mini Text Editor"))
gtk_window_resize (GTK_WINDOW (p_window_1), 500, 300)
gtk_window_set_position (GTK_WINDOW (p_window_1), GTK_WIN_POS_CENTER)
gtk_container_set_border_width (GTK_CONTAINER (p_window_1), 10)
p_vbox_1 = gtk_vbox_new (FALSE, 0)
gtk_widget_set_name (GTK_WIDGET(p_vbox_1), "vbox_1")
gtk_container_add (GTK_CONTAINER(p_window_1), p_vbox_1)
p_my_button_ok = gtk_button_new_with_label ("Ok")
gtk_container_add (GTK_CONTAINER(p_vbox_1), p_my_button_ok)
g_signal_connect (GTK_OBJECT (p_my_button_ok), "clicked", _
G_CALLBACK (@mte_on_menuitem_einstellungen_activate), NULL)
gtk_widget_show_all (p_window_1)
gtk_main()