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