request-focus-on ( child gadget -- )

Vocabulary

ui.gadgets

Inputs

child	an object
gadget	an object

Outputs

None

Definition

IN: ui.gadgets

GENERIC: request-focus-on ( child gadget -- )

Methods

USING: kernel ui.gadgets ;

M: f request-focus-on 2drop ;


USING: accessors ui.gadgets ;

M: gadget request-focus-on parent>> request-focus-on ;


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

M: world request-focus-on
    2dup eq? [ 2drop ] [ dup focused?>> (request-focus) ] if ;