PageRenderTime 15ms CodeModel.GetById 13ms app.highlight 0ms RepoModel.GetById 1ms app.codeStats 0ms

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

http://github.com/tybor/Liberty
Specman e | 32 lines | 22 code | 9 blank | 1 comment | 0 complexity | 3e35f33fa4229525cb4cf4398e88b08b MD5 | raw file
 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