/tutorial/vision/opengl/interactive_world.e
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