interactive_world.e | searchcode

/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