com-pause ( gadget -- )

Vocabulary

pong

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel timers ui.gadgets ;

IN: pong

: com-pause ( gadget -- )
    dup game-over?>> [
        dup timer>> dup thread>>
        [ stop-timer ] [ restart-timer ] if
    ] unless relayout-1 ;