- <pong> new
- T{ <play-field> { pos { 0 0 } } { dim { 400 400 } } } clone >>field
- T{ <ball> { pos { 50 50 } } { vel { 3 4 } } } clone >>ball
- T{ <paddle> { pos { 200 396 } } { dim { 75 4 } } } clone >>player
- T{ <computer> { pos { 200 0 } } { dim { 75 4 } } } clone >>computer ;
-
-M: <pong> pref-dim* ( <pong> -- dim ) drop { 400 400 } ;
-M: <pong> ungraft* ( <pong> -- ) t >>paused drop ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+ pong-gadget new
+ T{ play-field { pos { 0 0 } } { dim { 400 400 } } } clone >>field
+ T{ ball { pos { 50 50 } } { vel { 3 4 } } } clone >>ball
+ T{ paddle { pos { 200 396 } } { dim { 75 4 } } } clone >>player
+ T{ computer { pos { 200 0 } } { dim { 75 4 } } } clone >>computer ;