change-model ( ..a model quot: ( ..a obj -- ..b newobj ) -- ..b )


Vocabulary
models

Inputs and outputs
modela model
quota quotation with stack effect ( ..a obj -- ..b newobj )


Word description
Applies the quotation to the current value of the model to yield a new value, then changes the value of the model to the new value, and calls model-changed on all observers registered with add-connection.

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

Definition
IN: models

: change-model
( ..a model quot: ( ..a obj -- ..b newobj ) -- ..b )
((change-model)) set-model ; inline