<action-field> ( quot: ( string -- ) -- gadget )
Factor handbook » UI framework » Building user interfaces » Pre-made UI gadgets » Editor gadgets

Prev:	<model-field> ( model -- gadget )
Next:	Documents

Vocabulary
ui.gadgets.editors

Inputs

quot	a quotation with stack effect ( string -- )

Outputs

gadget

an editor

Word description
Creates an editor gadget with a blank model. Whenever a value is entered into the editor and Return pressed, the value is pushed on the stack as a string and the specified quotation is called. Note that the quotation cannot update the value in the field.

Definition

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

IN: ui.gadgets.editors

: <action-field> ( quot: ( string -- ) -- gadget )
    action-field [ <editor> ] dip new-border
    dup gadget-child >>editor field-theme swap >>quot ;