use MAIN-WINDOW: in a few places.

[factor.git] / extra / rosetta-code / opengl / opengl.factor

diff --git a/extra/rosetta-code/opengl/opengl.factor b/extra/rosetta-code/opengl/opengl.factor
index aad769a31317a482678da34ede216e94706c51ab..498aea074a8bfa06628109eaeef9e35198206352 100644 (file)
--- a/extra/rosetta-code/opengl/opengl.factor
+++ b/extra/rosetta-code/opengl/opengl.factor
@@ -1,7 +1,7 @@
 ! Copyright (c) 2012 Anonymous
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math math.rectangles opengl.gl sequences ui
-ui.gadgets ui.render ;
+USING: accessors kernel math math.rectangles opengl.gl
+sequences ui ui.gadgets ui.render ;
 IN: rosetta-code.opengl
 
 ! http://rosettacode.org/wiki/OpenGL
@@ -35,7 +35,6 @@ M: triangle-gadget pref-dim* drop { 640 480 } ;
 M: triangle-gadget draw-gadget*
     rect-bounds nip first2 reshape paint ;
 
-: triangle-window ( -- )
-   [ triangle-gadget new "Triangle" open-window ] with-ui ;
-
-MAIN: triangle-window
+MAIN-WINDOW: triangle-window
+    { { title "Triangle" } }
+    triangle-gadget new >>gadgets ;