key-caps ( -- )

Vocabulary

game.input.demos.key-caps

Inputs

None

Outputs

None

Definition

USING: accessors kernel ui ui.gadgets.borders ui.gadgets.worlds
;

IN: game.input.demos.key-caps

: key-caps ( -- )
    [
        f
        T{ world-attributes { title "Key Caps" } }
        clone
        <key-caps-gadget>
        { 5 5 }
        <border>
        >>gadgets
        open-window
    ] with-ui ;