insert-item ( item location -- )

Vocabulary

ui.gadgets.layout

Inputs

item	an object
location	an object

Outputs

None

Definition

USING: kernel namespaces ;

IN: ui.gadgets.layout

: insert-item ( item location -- )
    [ dup get [ drop ] [ remove-members ] if ] [ on ] [ ] tri
    [ add-member ] 2keep add-gadget-at ;