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

Vocabulary

models

Inputs

model	a model
quot	a quotation with stack effect ( ..a obj -- ..b newobj )

Outputs

None

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, ?set-model, change-model*, (change-model), push-model, pop-model

Definition

IN: models

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