2008-08-01 18:43:05 -04:00
|
|
|
|
|
|
|
|
USING: kernel fry sequences
|
2009-03-24 05:11:08 -04:00
|
|
|
vocabs.loader help.vocabs
|
2008-08-01 18:43:05 -04:00
|
|
|
ui ui.gadgets ui.gadgets.buttons ui.gadgets.packs ui.gadgets.scrollers
|
|
|
|
|
ui.tools.listener
|
|
|
|
|
accessors ;
|
|
|
|
|
|
|
|
|
|
IN: demos
|
|
|
|
|
|
|
|
|
|
: demo-vocabs ( -- seq ) "demos" tagged [ second ] map concat [ name>> ] map ;
|
|
|
|
|
|
|
|
|
|
: <run-vocab-button> ( vocab-name -- button )
|
2009-03-07 02:22:21 -05:00
|
|
|
dup '[ drop [ _ run ] call-listener ] <border-button> ;
|
2008-08-01 18:43:05 -04:00
|
|
|
|
|
|
|
|
: <demo-runner> ( -- gadget )
|
|
|
|
|
<pile> 1 >>fill demo-vocabs [ <run-vocab-button> add-gadget ] each ;
|
|
|
|
|
|
2008-08-01 19:06:24 -04:00
|
|
|
: demos ( -- ) [ <demo-runner> <scroller> "Demos" open-window ] with-ui ;
|
2008-08-01 18:43:05 -04:00
|
|
|
|
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|
|
|
|
|
|
MAIN: demos
|
