/src/wrappers/gtk/examples/images/images.e

http://github.com/tybor/Liberty · Specman e · 28 lines · 21 code · 6 blank · 1 comment · 0 complexity · c069f8a56326f9ca585ffaecc61589a7 MD5 · raw file 

    

  1. class IMAGES
    2. 

  2. 

  3. inherit 
    4. 

  4. 	GTK_MAIN
    5. 

  5. 

  6. creation 
    7. 

  7. 	make
    8. 

  8. 

  9. feature
    10. 

  10. 	
    11. 

  11. 	image: GTK_IMAGE
    12. 

  12. 

  13. 	window : GTK_WINDOW
    14. 

  14. 	
    15. 

  15. 	make is
    16. 

  16. 			-- Make
    17. 

  17. 		do
    18. 

  18. 			initialize_gtk							
    19. 

  19. 			create window.make
    20. 

  20. 			window.set_title ("Images demo")
    21. 

  21. 			window.set_default_size (200,200)
    22. 

  22. 			window.midscreen
    23. 

  23. 			create image.from_file("./test.png")
    24. 

  24. 			window.add (image)
    25. 

  25. 			window.show_all
    26. 

  26. 			gtk_main
    27. 

  27. 		end
    28. 

  28. end
    29.