(add-gadget) ( child parent -- )

Vocabulary

ui.gadgets.private

Inputs

child	an object
parent	an object

Outputs

None

Definition

USING: accessors combinators kernel sequences ui.gadgets vectors
;

IN: ui.gadgets.private

: (add-gadget) ( child parent -- )
    {
        [ drop unparent ]
        [ >>parent drop ]
        [ [ ?push ] change-children drop ]
        [ graft-state>> second [ graft ] [ drop ] if ]
    } 2cleave ;