cocoa-terrain-keys ( keycodes -- keys )

Vocabulary

terrain

Inputs

keycodes

an object

Outputs

keys

an object

Definition

USING: assocs bit-arrays kernel sequences ;

IN: terrain

:: cocoa-terrain-keys ( keycodes -- keys )
    256 <bit-array> :> keys terrain-cocoa-keys [| code hid |
        code keycodes key? [ t hid keys set-nth ] when
    ] assoc-each keys ;