2009-04-02 02:17:55 -04:00
|
|
|
USING: kernel fry sequences vocabs.loader help.vocabs ui
|
|
|
|
|
ui.gadgets ui.gadgets.buttons ui.gadgets.packs ui.gadgets.borders
|
2010-05-21 13:47:42 -04:00
|
|
|
ui.gadgets.scrollers ui.tools.listener accessors assocs ;
|
2008-08-01 18:43:05 -04:00
|
|
|
IN: demos
|
|
|
|
|
|
2010-05-17 23:20:46 -04:00
|
|
|
: demo-vocabs ( -- seq ) "demos" tagged values concat [ name>> ] map ;
|
2008-08-01 18:43:05 -04:00
|
|
|
|
|
|
|
|
: <run-vocab-button> ( vocab-name -- button )
|
2009-04-02 02:17:55 -04:00
|
|
|
dup '[ drop [ _ run ] \ run call-listener ] <border-button> ;
|
2008-08-01 18:43:05 -04:00
|
|
|
|
|
|
|
|
: <demo-runner> ( -- gadget )
|
2009-04-02 02:17:55 -04:00
|
|
|
<pile> 1 >>fill { 2 2 } >>gap demo-vocabs [ <run-vocab-button> add-gadget ] each ;
|
2008-08-01 18:43:05 -04:00
|
|
|
|
2010-01-15 19:55:43 -05:00
|
|
|
MAIN-WINDOW: demos { { title "Demos" } }
|
|
|
|
|
<demo-runner> { 2 2 } <border> <scroller> >>gadgets ;
|
