/src/wrappers/gtk/examples/windows/plain_window_example.e

http://github.com/tybor/Liberty · Specman e · 32 lines · 22 code · 9 blank · 1 comment · 0 complexity · 3e35f33fa4229525cb4cf4398e88b08b MD5 · raw file 

    

  1. indexing
    2. 

  2. 	copyright: "(C) 2005 Paolo Redaelli "
    3. 

  3. 	license: "LGPL v2 or later"
    4. 

  4. 	date: "$Date:$"
    5. 

  5. 	revision "$REvision:$"
    6. 

  6. 

  7. class PLAIN_WINDOW_EXAMPLE
    8. 

  8. 

  9. inherit
    10. 

  10. 	GTK_MAIN
    11. 

  11. 	
    12. 

  12. creation
    13. 

  13. 	make
    14. 

  14. 	
    15. 

  15. feature {} -- creation
    16. 

  16. 	make is
    17. 

  17. 		do
    18. 

  18. 			initialize_gtk
    19. 

  19. 			create window.make
    20. 

  20. 			window.set_title ("Wow my first Eiffel window!")
    21. 

  21. 			window.show
    22. 

  22. 			run_gtk_main_loop
    23. 

  23. 		end
    24. 

  24. feature -- foo
    25. 

  25. 	window: GTK_WINDOW
    26. 

  26. 			-- the window
    27. 

  27. 	
    28. 

  28. 

  29. end
    30.