include GtkEngine.e
constant win = create(GtkWindow)
connect(win,"destroy",quit)
set(win,"title","Window with Label")
set(win,"position",GTK_WIN_POS_CENTER)
set(win,"default size",300,200)
constant panel = create(GtkVBox)
add(win,panel)
constant lbl = create(GtkLabel,"This is a test")
add(panel,lbl)
constant btn = create(GtkButton,"gtk-quit")
connect(btn,"clicked",quit)
pack(panel,-btn)
show_all(win)
main()