(remove-members) ( placeholder members -- )

Vocabulary

ui.gadgets.layout

Inputs

placeholder	an object
members	an object

Outputs

None

Definition

USING: accessors kernel models sequences ui.gadgets ;

IN: ui.gadgets.layout

: (remove-members) ( placeholder members -- )
    [
        [ model? ] filter swap parent>> model>>
        [ remove-connection ] curry each
    ] [ nip [ gadget? ] filter [ unparent ] each ] 2bi ;