demos: Add 'with-ui' call

db4
Eduardo Cavazos 2008-08-01 18:06:24 -05:00
parent 6bc363b08d
commit 5c332525af
1 changed files with 1 additions and 1 deletions

View File

@ -15,7 +15,7 @@ IN: demos
: <demo-runner> ( -- gadget )
<pile> 1 >>fill demo-vocabs [ <run-vocab-button> add-gadget ] each ;
: demos ( -- ) <demo-runner> <scroller> "Demos" open-window ;
: demos ( -- ) [ <demo-runner> <scroller> "Demos" open-window ] with-ui ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!