<demo-runner> ( -- gadget )


Vocabulary
demos

Inputs
None

Outputs
gadgetan object


Definition
USING: accessors sequences ui.gadgets ui.gadgets.packs ;

IN: demos

: <demo-runner> ( -- gadget )
<filled-pile> { 2 2 } >>gap demo-vocabs
[ <run-vocab-button> add-gadget ] each ;