/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
- ! Copyright (C) 2011 Your name.
- ! See http://factorcode.org/license.txt for BSD license.
- USING: accessors kernel ui ui.gadgets ui.gadgets.buttons ui.gadgets.labels
- ui.gadgets.packs ui.gadgets.worlds ;
- IN: ui-test
- : hello ( -- )
- [
- f
- T{ world-attributes { title "Hi" } }
- clone
- <pile>
- "Hello world" <label> add-gadget
- "button" [ drop beep ] <border-button> "TT" >>tooltip add-gadget
- >>gadgets
- open-window
- ] with-ui ;