activate-model ( model -- )
Models

Prev:	model-changed ( model observer -- )
Next:	deactivate-model ( model -- )

Vocabulary
models

Inputs

model

a model

Outputs
None

Word description
Increments the reference count of the model. If it was previously zero, this model is added as a connection to all models registered as dependencies by add-dependency.

Warning
Calls to activate-model and deactivate-model should be balanced to keep the reference counting consistent, otherwise model-changed might be called at the wrong time or not at all.

See also
model-activated, deactivate-model

Definition

USING: accessors kernel sequences ;

IN: models

: activate-model ( model -- )
    dup ref-model 1 = [
        dup dependencies>>
        [ dup activate-model dupd add-connection ] each
        model-activated
    ] [ drop ] if ;