     monospace-font
         t >>bold?
         COLOR: red >>foreground
-        COLOR: white >>background
+        COLOR: gray95 >>background
     ]
 
 TUPLE: ball pos vel ;

    ] [
        PONG timer>> thread>> [
            FONT 24 >>size
            { "N     - New Game" "SPACE - Pause" }
            [ text-width 390 swap - 2 / 100 2array ]
            [ '[ _ _ draw-text ] with-translation ] 2bi
        ] unless


: <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 } ;
