spheres can use MAIN-WINDOW: too

2010-01-16 10:46:23 -08:00 · 2010-01-16 10:46:23 -08:00 · 7124bc2cb4
parent 4a5cac122c
commit 7124bc2cb4
1 changed files with 9 additions and 14 deletions
--- 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 } }
+        } }
+    } ;