--------------------------------
-- Simple Image
--------------------------------

include GtkEngine.e

constant win = create(GtkWindow) -- every program must have a main window
	set(win,"title","Photo of Julian")
	connect(win,"destroy",quit) -- 'quit' is built-in to EuGTK
		-- this shuts down the GTK engine when the main window is destroyed
		-- otherwise, GTK continues to run in the background.

constant panel = create(GtkVBox) -- a vertical packing container for other controls
	add(win,panel)

constant img = create(GtkImage,"~/demos/7300.jpg")
	add(panel,img)

show_all(win)  -- show the main window and everything in it
main()  -- initialize the GTK main processing loop