/tutorial/plugin/mini_gtk/example.e

http://github.com/tybor/Liberty · Specman e · 20 lines · 16 code · 4 blank · 0 comment · 0 complexity · f4744f13ee6b009f023bedc6faaec9c0 MD5 · raw file 

    

  1. class EXAMPLE
    2. 

  2. 

  3. insert
    4. 

  4.    GTK
    5. 

  5. 

  6. create {ANY}
    7. 

  7.    make
    8. 

  8. 

  9. feature {}
    10. 

  10.    make
    11. 

  11.       local
    12. 

  12.          w: GTK_WINDOW
    13. 

  13.       do
    14. 

  14.          create w.make
    15. 

  15.          w.signal_connect("destroy", agent gtk_main_quit)
    16. 

  16.          w.show
    17. 

  17.          gtk_main
    18. 

  18.       end
    19. 

  19. 

  20. end -- class EXAMPLE
    21.