add-gadget-at ( item location -- )

Vocabulary

ui.gadgets.layout

Inputs

item	an object
location	an object

Outputs

None

Definition

IN: ui.gadgets.layout

GENERIC#: add-gadget-at 1 ( item location -- )

Methods

USING: accessors arrays kernel models models.combinators
ui.gadgets.books ui.gadgets.layout ;

M: model add-gadget-at
    parent>> dup book?
    [ "No models in books" throw ] [
        dup model>> dup collection?
        [ nip swap add-connection ]
        [ drop [ 1array <collection> ] dip model<< ] if
    ] if ;


USING: kernel ui.gadgets.layout ;

M: object add-gadget-at insertion-point -rot (add-gadget-at) ;