pry off some ui app boilerplate with a MAIN-WINDOW: syntax

[factor.git] / extra / maze / maze.factor

diff --git a/extra/maze/maze.factor b/extra/maze/maze.factor
index 4238dab16888c53e09277076ea8b869ff822ee49..5d0d55b64e0957595a19af469c94f98e934bc922 100644 (file)
--- a/extra/maze/maze.factor
+++ b/extra/maze/maze.factor
@@ -61,7 +61,7 @@ M: maze draw-gadget* [ n draw-maze ] draw-canvas ;
 
 M: maze pref-dim* drop { 400 400 } ;
 
-: maze-window ( -- )
-    [ <maze> "Maze" open-window ] with-ui ;
+MAIN-WINDOW: maze-window { { title "Maze" } }
+    <maze> >>gadgets ;
 
 MAIN: maze-window