<box> ( gadgets type -- track )


Vocabulary
ui.gadgets.layout

Inputs
gadgetsan object
typean object


Outputs
trackan object


Definition
USING: accessors kernel models.combinators sequences
ui.gadgets.tracks ;

IN: ui.gadgets.layout

: <box> ( gadgets type -- track )
[ t make-layout ] dip <track> swap [ add-layout ] each swap
[ <collection> >>model ] unless-empty ; inline