/src/wrappers/gtk/examples/windows/plain_window_example.e

 1indexing
 2	copyright: "(C) 2005 Paolo Redaelli "
 3	license: "LGPL v2 or later"
 4	date: "$Date:$"
 5	revision "$REvision:$"
 6
 7class PLAIN_WINDOW_EXAMPLE
 8
 9inherit
10	GTK_MAIN
11	
12creation
13	make
14	
15feature {} -- creation
16	make is
17		do
18			initialize_gtk
19			create window.make
20			window.set_title ("Wow my first Eiffel window!")
21			window.show
22			run_gtk_main_loop
23		end
24feature -- foo
25	window: GTK_WINDOW
26			-- the window
27	
28
29end
30	
31	
32