focus-child ( child gadget ? -- )

Vocabulary

ui.gestures

Inputs

child	an object
gadget	an object
?	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: ui.gestures

: focus-child ( child gadget ? -- )
    [
        dup focus>>
        [ dup send-lose-focus f swap t focus-child ] when*
        dupd focus<< [ send-gain-focus ] when*
    ] [ focus<< ] if ;