grab-input ( gadget -- )

Vocabulary

ui.gadgets.worlds

Inputs

gadget

a gadget

Outputs

None

Word description

Sets the world containing gadget to grab mouse and keyboard input while focused.

Notes

Normal mouse gestures may not be available while input is grabbed.

See also

ungrab-input

Definition

USING: accessors kernel ui.backend ;

IN: ui.gadgets.worlds

: grab-input ( gadget -- )
    find-world dup grab-input?>>
    [ drop ] [
        t >>grab-input? dup focused?>>
        [ handle>> (grab-input) ] [ drop ] if
    ] if ;