<demo-preview> ( models builder -- gadget )


Vocabulary
ui-demo

Inputs
modelsan object
builderan object


Outputs
gadgetan object


Definition
USING: accessors kernel models models.product ;

IN: ui-demo

:: <demo-preview> ( models builder -- gadget )
demo-preview new { 0 0 } >>align models <product> >>model
builder >>builder dup f swap model-changed ;