record-button ( button pressed? -- )

Vocabulary

ui.backend.input-state

Inputs

button	an object
pressed?	an object

Outputs

None

Definition

USING: accessors kernel namespaces sequences ;

IN: ui.backend.input-state

:: record-button ( button pressed? -- )
    button { 1 2 3 8 9 } index [
        pressed? swap current-input-state get-global buttons>>
        set-nth
    ] when* ;