handle-papier-key ( gesture world key -- )

Vocabulary

papier

Inputs

gesture	an object
world	an object
key	an object

Outputs

None

Definition

USING: accessors arrays kernel sequences sets ui ui.gestures ;

IN: papier

:: handle-papier-key ( gesture world key -- )
    key "esc" =
    [ gesture key-down? [ world close-window ] when ] [
        gesture key-down? [
            world [ key 1array union ] change-held-keys
            [ key 1array union ] change-pending-keys drop
        ] [ world [ key swap remove ] change-held-keys drop ] if
    ] if ;