model-activated ( model -- )
Models » Implementing models

Next:

model-deactivated ( model -- )

Vocabulary
models

Inputs

model

a model

Outputs
None

Generic word contract
Called after a model has been activated.

See also
model-deactivated, activate-model, deactivate-model

Definition

IN: models

GENERIC: model-activated ( model -- )

Methods

USING: accessors kernel models models.combinators ;

M: action-value model-activated
    dup parent>> dup activate-model model-changed ;


USING: accessors kernel models models.arrow sequences ;

M: arrow model-activated
    [ dependencies>> ] keep [ model-changed ] curry each ;


USING: accessors calendar kernel models models.clock timers ;

M: clock model-activated
    dup [ [ now ] ] dip [ set-model ] curry compose
    f 1 seconds <timer> [ start-timer ] keep >>timer drop ;


USING: kernel models models.combinators ;

M: collection model-activated dup (model-changed) ;


USING: accessors kernel models models.conditional ;

M: conditional model-activated [ model>> ] keep model-changed ;


USING: models models.delay ;

M: delay model-activated update-delay-model ;


USING: kernel models models.combinators ;

M: fold-model model-activated drop ;


USING: kernel models models.mapping ;

M: mapping model-activated dup model-changed ;


USING: kernel models ;

M: model model-activated drop ;


USING: accessors kernel models models.combinators sequences ;

M: multi-model model-activated
    dup dependencies>> [ value>> ] find nip
    [ swap model-changed ] [ drop ] if* ;


USING: kernel models models.product ;

M: product model-activated dup model-changed ;


USING: accessors kernel models models.combinators ;

M: switch-model model-activated
    [ original>> ] keep model-changed ;