<model-field> ( model -- gadget )


Vocabulary
ui.gadgets.controls

Inputs
modela model


Outputs
gadgeta model-field


Word description
Creates a field with an initial value

Definition
USING: accessors kernel ui.gadgets.editors ;

IN: ui.gadgets.controls

: <model-field> ( model -- gadget )
model-field new-field swap init-field >>model* ;