set-model ( value model -- )
Models » Implementing models

Prev:	model-activated ( model -- )
Next:	update-model ( model -- )

Vocabulary
models

Inputs

value	an object
model	a model

Outputs
None

Word description
Changes the value of a model, calls update-model to notify it, then calls model-changed on all observers registered with add-connection.

See also
?set-model, change-model, change-model*, (change-model), push-model, pop-model

Definition

USING: accessors kernel ;

IN: models

: set-model ( value model -- )
    dup locked?>>
    [ 2drop ] [
        [
            swap >>value
            [ update-model ] [ notify-connections ] bi
        ] with-locked-model
    ] if ;