(add-gadget-at) ( parent item n -- )

Vocabulary

ui.gadgets.layout

Inputs

parent	an object
item	an object
n	an object

Outputs

None

Definition

IN: ui.gadgets.layout

GENERIC#: (add-gadget-at) 2 ( parent item n -- )

Methods

USING: kernel ui.gadgets ui.gadgets.layout ;

M: gadget (add-gadget-at)
    -rot [ add-gadget ] keep insert-gadget ;


USING: accessors kernel ui.gadgets.layout ui.gadgets.tracks ;

M: track (add-gadget-at)
    -rot >layout [ add-layout ] keep
    [ gadget>> insert-gadget ] [ size>> insert-size ] 3bi ;