(clear-gadget) ( gadget -- )

Vocabulary

ui.gadgets.private

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel ui.gadgets ;

IN: ui.gadgets.private

: (clear-gadget) ( gadget -- )
    dup [ (unparent) ] each-child f >>focus f >>children drop ;