/ui-test/ui-test.factor

 1! Copyright (C) 2011 Your name.
 2! See http://factorcode.org/license.txt for BSD license.
 3USING: accessors kernel ui ui.gadgets ui.gadgets.buttons ui.gadgets.labels
 4ui.gadgets.packs ui.gadgets.worlds ;
 5IN: ui-test
 6
 7: hello ( -- )
 8    [
 9        f
10        T{ world-attributes { title "Hi" } }
11        clone
12        <pile>
13        "Hello world" <label> add-gadget
14        "button" [ drop beep ] <border-button> "TT" >>tooltip add-gadget
15        >>gadgets
16        open-window
17    ] with-ui ;