move-window ( scroller move -- )

Vocabulary

gamelib.demos.maze-game

Inputs

scroller	an object
move	an object

Outputs

None

Definition

USING: accessors combinators gamelib.board kernel
ui.gadgets.sliders ;

IN: gamelib.demos.maze-game

:: move-window ( scroller move -- )
    {
        { [ move LEFT = ] [ scroller x>> -100 swap slide-by ] }
        { [ move RIGHT = ] [ scroller x>> 100 swap slide-by ] }
        { [ move DOWN = ] [ scroller y>> 100 swap slide-by ] }
        { [ move UP = ] [ scroller y>> -100 swap slide-by ] }
    } cond ;