<model-editor> ( model -- gadget )


Vocabulary
ui.gadgets.controls

Inputs
modela model


Outputs
gadgeta model-field


Word description
Creates an editor with an initial value

Definition
USING: accessors kernel ui.gadgets.editors ;

IN: ui.gadgets.controls

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