<pong-gadget> ( -- gadget )

Vocabulary

pong

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors calendar colors kernel timers ui.pens.solid ;

IN: pong

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