move-pov ( gadget pov -- )

Vocabulary

game.input.demos.joysticks

Inputs

gadget	an object
pov	an object

Outputs

None

Definition

USING: accessors assocs kernel ui.theme ;

IN: game.input.demos.joysticks

: move-pov ( gadget pov -- )
    swap pov>> [
        interior>> -rot = text-color content-background ?
        >>color drop
    ] with assoc-each ;