make-key-gadget ( scancode dim array -- )

Vocabulary

game.input.demos.key-caps

Inputs

scancode	an object
dim	an object
array	an object

Outputs

None

Definition

USING: accessors combinators kernel sequences ui.gadgets.buttons
;

IN: game.input.demos.key-caps

: make-key-gadget ( scancode dim array -- )
    [
        swap [
            [ first [ drop ] <border-button> ] [ second >>loc ]
            [ third >>dim ] tri
        ] [ ( -- value ) execute-effect ] bi*
    ] dip set-nth ;