--------------------------------
-- Window with Button
--------------------------------

include GtkEngine.e

constant win = create(GtkWindow) -- window can only contain 1 item
	connect(win,"destroy",quit) 
	set(win,"position",GTK_WIN_POS_CENTER) 
	set(win,"default size",300,200) 

constant panel = create(GtkVBox) -- a vertical container to hold one or many 'widgets'
	add(win,panel)

constant btn = create(GtkButton,"gtk-quit") -- button using stock 'Quit' icon
	connect(btn,"clicked",quit) -- close program when button clicked
	pack(panel,-btn) -- pack into panel, minus sign means pack at end of container

show_all(win)
main()