update-status ( gadget -- )

Vocabulary

tetris

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel make math.parser tetris.game
ui.gadgets.worlds ;

IN: tetris

: update-status ( gadget -- )
    dup tetris>> [
        [ "Level: " % level # ] [ " Score: " % score>> # ]
        [ paused?>> [ " (Paused)" % ] when ] tri
    ] "" make swap show-status ;