demos: use <filled-pile>

factor-shell
John Benediktsson 2018-01-22 08:50:33 -08:00
parent 5501d2446b
commit 795150333a
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;