init-field ( model -- model' )

Vocabulary

ui.gadgets.controls

Inputs

model

an object

Outputs

model'

an object

Definition

USING: accessors kernel ;

IN: ui.gadgets.controls

: init-field ( model -- model' )
    [ [ ] [ "" ] if* ] change-value ;