Handbook
Glossary
add-keys-gadgets ( gadget -- gadget )
Vocabulary
game
.
input
.
demos
.
key-caps
Inputs
gadget
an
object
Outputs
gadget
an
object
Definition
USING:
accessors
arrays
assocs
kernel
sequences
ui.gadgets
;
IN:
game.input.demos.key-caps
:
add-keys-gadgets
( gadget -- gadget )
key-locations
256
f
<array>
[
[
make-key-gadget
]
curry
assoc-each
]
[
[
[
add-gadget
]
when*
]
each
]
[
>>keys
]
tri
;