PageRenderTime 5ms CodeModel.GetById 2ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/tutorial/vision/opengl/interactive_world.e

http://github.com/tybor/Liberty
Specman e | 16 lines | 12 code | 4 blank | 0 comment | 0 complexity | e898d219a752ef1e03e92cace78331f3 MD5 | raw file
 1class INTERACTIVE_WORLD
 2
 3inherit
 4	WORLD
 5
 6creation {ANY}
 7	make_interactive
 8
 9feature {}
10	make_interactive (p: like parent; end_of_program: PROCEDURE[ANY, TUPLE]) is
11		do
12			make(p)
13			when_left_clicked(end_of_program)
14		end
15	
16end