(new-field) ( editor field -- gadget )


Vocabulary
ui.gadgets.controls

Inputs
editoran object
fieldan object


Outputs
gadgetan object


Definition
USING: accessors kernel ui.gadgets ui.gadgets.borders
ui.gadgets.editors ui.gadgets.editors.private ;

IN: ui.gadgets.controls

: (new-field) ( editor field -- gadget )
[ new-editor ] dip new-border dup gadget-child >>editor
field-theme { 1 0 } >>align ; inline