remove-gadget ( gadget parent -- )

Vocabulary

ui.gadgets

Inputs

gadget	an object
parent	an object

Outputs

None

Definition

IN: ui.gadgets

GENERIC: remove-gadget ( gadget parent -- )

Methods

USING: kernel ui.gadgets ;

M: gadget remove-gadget 2drop ;


USING: accessors generic kernel sequences ui.gadgets
ui.gadgets.tracks ;

M: track remove-gadget
    [ [ children>> index ] [ sizes>> ] bi remove-nth! drop ]
    [ M\ track remove-gadget (call-next-method) ] 2bi ;


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

M: world remove-gadget
    2dup layers>> member-eq?
    [ layers>> remove-eq! drop ]
    [ M\ world remove-gadget (call-next-method) ] if ;