     [ timer>> stop-timer ] [ call-next-method ] bi ;
 
 M:: pong-gadget draw-gadget* ( PONG -- )
-    COLOR: dark-gray gl-color
+    COLOR: gray80 gl-color
     15 390 20 <range> [
         197 2array { 10 6 } gl-fill-rect
     ] each

    monospace-font
        t >>bold?
        COLOR: red >>foreground
        COLOR: white >>background
    ]

TUPLE: ball pos vel ;


: <pong-gadget> ( -- gadget )
    pong-gadget new initial-state
        COLOR: gray95 <solid> >>interior
        dup '[ _ on-tick ] f 16 milliseconds <timer> >>timer ;

M: pong-gadget pref-dim* drop { 400 400 } ;
