unfocus-gadget ( child gadget -- )

Vocabulary

ui.gadgets.private

Inputs

child	an object
gadget	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: ui.gadgets.private

: unfocus-gadget ( child gadget -- )
    [ nip ] [ focus>> eq? ] 2bi [ f >>focus ] when drop ;