on-click ( -- quot )

Vocabulary

gamelib.demos.tic-tac-toe

Inputs

None

Outputs

quot

an object

Definition

USING: accessors gamelib.ui kernel namespaces sequences ;

IN: gamelib.demos.tic-tac-toe

:: on-click ( -- quot )
    [
        dup board>> first swap hand-rel-cell player get-global
        set-board
    ] ;