GTKe, The GIMP ToolKit

Top  Previous  Next

GTK+, The GIMP ToolKit

fblogo_mini

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()