add-member ( obj placeholder -- )

Vocabulary

ui.gadgets.layout

Inputs

obj	an object
placeholder	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: ui.gadgets.layout

: add-member ( obj placeholder -- )
    over layout? [ [ gadget>> ] dip ] when members>> push ;