(request-focus) ( child world ? -- )

Vocabulary

ui.gadgets.worlds

Inputs

child	an object
world	an object
?	an object

Outputs

None

Definition

USING: accessors kernel ui.gestures ;

IN: ui.gadgets.worlds

: (request-focus) ( child world ? -- )
    pick parent>> pick eq?
    [ [ dup parent>> dup ] 2dip [ (request-focus) ] keep ]
    unless focus-child ;