notify-connections ( model -- )

Vocabulary

models

Inputs

model

an object

Outputs

None

Definition

USING: accessors kernel models.combinators sequences
sequences.extras ;

IN: models

: notify-connections ( model -- )
    dup connections>> dup
    [ dup multi-model? [ important?>> ] [ drop f ] if ] find-all
    [ second tuck [ remove ] dip prefix ] each
    [ model-changed ] with each ;