add-controller-label ( gadget controller -- gadget )


Vocabulary
game.input.demos.joysticks

Inputs
gadgetan object
controlleran object


Outputs
gadgetan object


Definition
USING: accessors game.input kernel ui.gadgets ui.gadgets.labels
;

IN: game.input.demos.joysticks

: add-controller-label ( gadget controller -- gadget )
[ >>controller ] [ product-string <label> add-gadget ] bi ;