From 7124bc2cb453ad3f3d14108c74f0f1177a08e43a Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sat, 16 Jan 2010 10:46:23 -0800
Subject: [PATCH] spheres can use MAIN-WINDOW: too

---
 extra/spheres/spheres.factor | 23 +++++++++--------------
 1 file changed, 9 insertions(+), 14 deletions(-)

diff --git a/extra/spheres/spheres.factor b/extra/spheres/spheres.factor
index b7431caef8..de969e47b6 100644
--- a/extra/spheres/spheres.factor
+++ b/extra/spheres/spheres.factor
@@ -299,17 +299,12 @@ M: spheres-world draw-world*
         ]
     } cleave ;
 
-: spheres-window ( -- )
-    [
-        f T{ world-attributes
-            { world-class spheres-world }
-            { title "Spheres" }
-            { pixel-format-attributes {
-                windowed
-                double-buffered
-                T{ depth-bits { value 16 } }
-            } }
-        } open-window
-    ] with-ui ;
-
-MAIN: spheres-window
+MAIN-WINDOW: spheres-window {
+        { world-class spheres-world }
+        { title "Spheres" }
+        { pixel-format-attributes {
+            windowed
+            double-buffered
+            T{ depth-bits { value 16 } }
+        } }
+    } ;