/ui-test/ui-test.factor

http://github.com/jlepak/factor-work · Factor · 17 lines · 14 code · 1 blank · 2 comment · 0 complexity · 876815db6330da1048b913ff745ae965 MD5 · raw file 

    

  1. ! Copyright (C) 2011 Your name.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: accessors kernel ui ui.gadgets ui.gadgets.buttons ui.gadgets.labels
    4. 

  4. ui.gadgets.packs ui.gadgets.worlds ;
    5. 

  5. IN: ui-test
    6. 

  6. 

  7. : hello ( -- )
    8. 

  8.     [
    9. 

  9.         f
    10. 

  10.         T{ world-attributes { title "Hi" } }
    11. 

  11.         clone
    12. 

  12.         <pile>
    13. 

  13.         "Hello world" <label> add-gadget
    14. 

  14.         "button" [ drop beep ] <border-button> "TT" >>tooltip add-gadget
    15. 

  15.         >>gadgets
    16. 

  16.         open-window
    17. 

  17.     ] with-ui ;
    18.