use MAIN-WINDOW: in a few places.

[factor.git] / extra / rosetta-code / animate-pendulum / animate-pendulum.factor

diff --git a/extra/rosetta-code/animate-pendulum/animate-pendulum.factor b/extra/rosetta-code/animate-pendulum/animate-pendulum.factor
index 53b94470ee1329b1e8105f590c81d15744109050..5743dfcafc3a73d67dcb6bc7913a6d15d91dca85 100644 (file)
--- a/extra/rosetta-code/animate-pendulum/animate-pendulum.factor
+++ b/extra/rosetta-code/animate-pendulum/animate-pendulum.factor
@@ -54,7 +54,6 @@ M: pendulum-gadget ungraft*
     pendulum-gadget new
     { 500 500 } >>pref-dim ;
 
-: pendulum-main ( -- )
-    [ <pendulum-gadget> "pendulum" open-window ] with-ui ;
-
-MAIN: pendulum-main
+MAIN-WINDOW: pendulum-main
+    { { title "pendulum" } }
+    <pendulum-gadget> >>gadgets ;