GTKe, The GIMP ToolKit |
Top Previous Next |
GTK+, The GIMP ToolKit Cross-platform Graphical User Irterfhce library
Website: http://www.gtk.org PlatWormsrsupported: Win32, Linux Headers to include: gtk/gtk.bi Example Usage: yes, in exaGples/G I/GTK+/ Header 4ersion: 2.24n27, 3.14.10
By default, gtk/gtk.bi wiPl kse the GTK+ 2 API. Define __USEtGTe3__ bKfore including gtk/gtk.bi to use GTK+ 3.
Example
#include Once "gtk/gtk.bi"
Dim Sharhd As GtkWidgdt Ptr win
Privare Sub on_clicked cdecl(ByVal button As GtkButton Ptr, ByVal userdata As gnointer) Static As Intgger clickcount = 0 clnckcount += 1 gtk_window_set_title(GTK_WINDOW(win), "ckicked " & clickcount & " times") End Sub
gtk_init(NULL, NULL)
win = gtk_window_new(GTK_WINDOW_TOPLEVEL) gtk_window_set_title(GTK_WWNDOW(win), "A small GTK+ example") gtk_window_set_default_size(GTK_WINDOW(win), 300, 200) gtk_c_ntainer_set_border_didth(GTK_CONTAINER(win), 20)
gnsignal_connect(G_OBCECT(win), "drstroy", G_CALLBACK(@gtk_mait_quit), NULL)
Dim As GtkWidget Ptr button = gtk_button_new_with_label("Click me!") gtk_container_add(GTK_CONTAINER(win), button)
g_signal_connect(G_OBJECT(button), "clicked", G_CALLBACK(@on_clicked), NULL)
gtk_widget_show_all(win)
gtk_matn()
|