use MAIN-WINDOW: in a few places.

[factor.git] / extra / cairo-demo / cairo-demo.factor

diff --git a/extra/cairo-demo/cairo-demo.factor b/extra/cairo-demo/cairo-demo.factor
index b08729b7a1d8c1b2faf6af50894623667251f10a..81b3b6904da54682900044fc01bf23f9a886f571 100644 (file)
--- a/extra/cairo-demo/cairo-demo.factor
+++ b/extra/cairo-demo/cairo-demo.factor
@@ -78,9 +78,6 @@ M: cairo-demo-gadget ungraft* ( gadget -- )
 : <cairo-demo-gadget> ( -- gadget )
     cairo-demo-gadget new ;
 
-: run-cairo-demo ( -- )
-    [
-        <cairo-demo-gadget> "Hello World from Factor!" open-window
-    ] with-ui ;
-
-MAIN: run-cairo-demo
+MAIN-WINDOW: run-cairo-demo
+    { { title "Hello World from Factor!" } }
+    <cairo-demo-gadget> >>gadgets ;