add-keys-gadgets ( gadget -- gadget )


Vocabulary
game.input.demos.key-caps

Inputs
gadgetan object


Outputs
gadgetan 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 ;