demos: use <filled-pile>
parent
5501d2446b
commit
795150333a
|
@ -9,7 +9,7 @@ IN: demos
|
||||||
dup '[ drop [ _ run ] \ run call-listener ] <border-button> ;
|
dup '[ drop [ _ run ] \ run call-listener ] <border-button> ;
|
||||||
|
|
||||||
: <demo-runner> ( -- gadget )
|
: <demo-runner> ( -- gadget )
|
||||||
<pile> 1 >>fill { 2 2 } >>gap demo-vocabs [ <run-vocab-button> add-gadget ] each ;
|
<filled-pile> { 2 2 } >>gap demo-vocabs [ <run-vocab-button> add-gadget ] each ;
|
||||||
|
|
||||||
MAIN-WINDOW: demos { { title "Demos" } }
|
MAIN-WINDOW: demos { { title "Demos" } }
|
||||||
<demo-runner> { 2 2 } <border> <scroller> >>gadgets ;
|
<demo-runner> { 2 2 } <border> <scroller> >>gadgets ;
|
||||||
|
|
Loading…
Reference in New Issue