use MAIN-WINDOW: in a few places.

[factor.git] / extra / pong / pong.factor

diff --git a/extra/pong/pong.factor b/extra/pong/pong.factor
index 4f77e431ff42c22366c4ae043e921c7c6e2dafdd..9939c9fc778830fd8beac7cb35ba2061d37a4f14 100644 (file)
--- a/extra/pong/pong.factor
+++ b/extra/pong/pong.factor
@@ -165,8 +165,6 @@ M:: <pong> draw-gadget* ( PONG -- )
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: pong-window ( -- ) pong [ "PONG" open-window ] [ start-pong-thread ] bi ;
-
-: pong-main ( -- ) [ pong-window ] with-ui ;
-
-MAIN: pong-window
+MAIN-WINDOW: pong-window
+    { { title "PONG" } }
+    pong [ >>gadgets ] [ start-pong-thread ] bi ;