/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 

    

  1. class INTERACTIVE_WORLD
    2. 

  2. 

  3. inherit
    4. 

  4. 	WORLD
    5. 

  5. 

  6. creation {ANY}
    7. 

  7. 	make_interactive
    8. 

  8. 

  9. feature {}
    10. 

  10. 	make_interactive (p: like parent; end_of_program: PROCEDURE[ANY, TUPLE]) is
    11. 

  11. 		do
    12. 

  12. 			make(p)
    13. 

  13. 			when_left_clicked(end_of_program)
    14. 

  14. 		end
    15. 

  15. 	
    16. 

  16. end
    17.