/tutorial/vision/drawing/free_drawing2.e

http://github.com/tybor/Liberty · Specman e · 45 lines · 37 code · 5 blank · 3 comment · 0 complexity · f8bbaceed7deb1355dd22ea63c60b803 MD5 · raw file 

    

  1. class FREE_DRAWING2
    2. 

  2. 	-- This example show how to do free style draw, using dedicated
    3. 

  3. 	-- layout (DIAGRAM).
    4. 

  4. 

  5. inherit
    6. 

  6. 	GRAPHIC
    7. 

  7. 

  8. creation {ANY}
    9. 

  9. 	make
    10. 

  10. 

  11. feature {}
    12. 

  12. 	make is
    13. 

  13. 		local
    14. 

  14. 			toplevel_window: TOPLEVEL_WINDOW; diagram: SUB_WINDOW; horizontal_line: HORIZONTAL_LINE
    15. 

  15. 		do
    16. 

  16. 			create toplevel_window
    17. 

  17. 			-- The default layout is column.
    18. 

  18. 			create diagram.make_layout(toplevel_window, create {DIAGRAM})
    19. 

  19. 			diagram.map
    20. 

  20. 			create horizontal_line
    21. 

  21. 			toplevel_window.child_attach(horizontal_line)
    22. 

  22. 			add_controls(toplevel_window)
    23. 

  23. 			toplevel_window.set_title(once "Drawing example")
    24. 

  24. 			toplevel_window.set_background_color(white_color)
    25. 

  25. 			toplevel_window.set_x_expand(False)
    26. 

  26. 			toplevel_window.set_y_expand(False)
    27. 

  27. 			toplevel_window.map
    28. 

  28. 			vision.start
    29. 

  29. 		end
    30. 

  30. 

  31. 	add_controls (w: WINDOW) is
    32. 

  32. 		local
    33. 

  33. 			controls: CONTAINER; layout: ROW_LAYOUT; quit: BUTTON
    34. 

  34. 		do
    35. 

  35. 			create layout
    36. 

  36. 			create controls.make_layout(w, layout)
    37. 

  37. 			controls.set_x_expand(True)
    38. 

  38. 			layout.set_border(5)
    39. 

  39. 			layout.set_spacing(5)
    40. 

  40. 			layout.insert_button_space
    41. 

  41. 			create quit.with_label(controls, U"Exit")
    42. 

  42. 			quit.when_left_clicked(agent vision.loop_stack.break)
    43. 

  43. 		end
    44. 

  44. 

  45. end -- class FREE_DRAWING2
    46.