use MAIN-WINDOW: in a few places.

[factor.git] / extra / rosetta-code / image-noise / image-noise.factor

diff --git a/extra/rosetta-code/image-noise/image-noise.factor b/extra/rosetta-code/image-noise/image-noise.factor
index 72b51662132aa6e265ccc373e5e2ecf1609beb4a..cb4fcdf95279f61b06e18ac9f76c3e3e5aebfb95 100644 (file)
--- a/extra/rosetta-code/image-noise/image-noise.factor
+++ b/extra/rosetta-code/image-noise/image-noise.factor
@@ -67,7 +67,6 @@ M: bw-noise-gadget ungraft* [ stop-animation ] [ call-next-method ] bi ;
     [ fps-model>> fps-gadget ]
     [ <pile> swap add-gadget swap add-gadget ] bi ;
 
-: open-noise-window ( -- )
-    [ <bw-noise-gadget> with-fps "Black and White noise" open-window ] with-ui ;
-
-MAIN: open-noise-window
+MAIN-WINDOW: open-noise-window
+    { { title "Black and White noise" } }
+    <bw-noise-gadget> >>gadgets ;