 
 : <pong-gadget> ( -- gadget )
     pong-gadget new initial-state
-        COLOR: white <solid> >>interior
+        COLOR: gray95 <solid> >>interior
         dup '[ _ on-tick ] f 16 milliseconds <timer> >>timer ;
 
 M: pong-gadget pref-dim* drop { 400 400 } ;

    [ timer>> stop-timer ] [ call-next-method ] bi ;

M:: pong-gadget draw-gadget* ( PONG -- )
    COLOR: dark-gray gl-color
    15 390 20 <range> [
        197 2array { 10 6 } gl-fill-rect
    ] each

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

TUPLE: ball pos vel ;
