new-field ( class -- gadget )

Vocabulary

ui.gadgets.editors

Inputs

class

an object

Outputs

gadget

an object

Definition

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

IN: ui.gadgets.editors

: new-field ( class -- gadget )
    [ <editor> ] dip new-border dup gadget-child >>editor
    field-theme ; inline