GTK+, The GIMP ToolKit
 
跨平台图形用户界面库

网址:http://www.gtk.org
支持平台:Win32,Linux
标题包括:gtk / gtk.bi
示例用法:yes,在examples / GUI / GTK + /
标题版本:2.24.6和3.2.2

默认情况下,gtk / gtk.bi将使用GTK + 2.24 API。
在将gtk / gtk.bi包含GTK + >= 2.0和<2.16之前,先定义__USE_GTK_OLD__。
在包含gtk / gtk.bi之前定义__USE_GTK3__以使用GTK + >= 3.0。

例子

#include once "gtk/gtk.bi"

Dim Shared As GtkWidget Ptr win

Private Sub on_clicked cdecl(ByVal button As GtkButton Ptr, ByVal userdata As gpointer)
    Static As Integer clickcount = 0
    clickcount += 1
    gtk_window_set_title(GTK_WINDOW(win), "点击" & clickcount & "时")
End Sub

gtk_init(NULL, NULL)

win = gtk_window_new(GTK_WINDOW_TOPLEVEL)
gtk_window_set_title(GTK_WINDOW(win), "一个小的GTK +示例")
gtk_window_set_default_size(GTK_WINDOW(win), 300, 200)
gtk_container_set_border_width(GTK_CONTAINER(win), 20)

g_signal_connect(G_OBJECT(win), "破坏", G_CALLBACK(@gtk_main_quit), NULL)

Dim As GtkWidget Ptr button = gtk_button_new_with_label("点击我!")
gtk_container_add(GTK_CONTAINER(win), button)

g_signal_connect(G_OBJECT(button), "点击", G_CALLBACK(@on_clicked), NULL)

gtk_widget_show_all(win)

gtk_main()