demos: Add 'with-ui' call

diff --git a/extra/demos/demos.factor b/extra/demos/demos.factor
index ba906fc08b537b9a19adfefb9c7f97aa60a1dc59..c8e5a35f9e351a8173c464acb30411640ba26b1d 100644 (file)
--- a/extra/demos/demos.factor
+++ b/extra/demos/demos.factor
@@ -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 ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!