model
Models

Next:

<model> ( value -- model )

Vocabulary
models

Class description
A mutable cell holding a single value. When the value is changed, a sequence of connected objects are notified. Models have the following slots:

value	the value of the model. Use set-model to change the value.
connections	a sequence of objects implementing the model-changed generic word, to be notified when the model's value changes.
dependencies	a sequence of models which should have this model added to their sequence of connections when activated.
ref	a reference count tracking the number of models which depend on this one.
locked?	a slot set by with-locked-model to ensure that the model doesn't get changed recursively

Other classes may inherit from model.

Definition

USING: kernel ;

IN: models

TUPLE: model < identity-tuple
    value connections dependencies ref locked? ;

Methods

USING: models models.combinators monads ui.gadgets.layout ;

M: model $> insertion-quot side-effect-model new-mapped-model ;


USING: kernel models ui.gadgets.layout ;

M: model -> dup , ;


USING: models models.combinators monads ui.gadgets.layout ;

M: model <$ insertion-quot quot-model new-mapped-model ;


USING: kernel models models.combinators monads ui.gadgets.layout
;

M: model >>= [ swap insertion-quot <action> ] curry ;


USING: accessors arrays kernel models models.combinators
ui.gadgets.books ui.gadgets.layout ;

M: model add-gadget-at
    parent>> dup book?
    [ "No models in books" throw ] [
        dup model>> dup collection?
        [ nip swap add-connection ]
        [ drop [ 1array <collection> ] dip model<< ] if
    ] if ;


USING: models models.combinators monads ui.gadgets.layout ;

M: model fmap insertion-quot <mapped> ;


USING: kernel models ;

M: model model-activated drop ;


USING: accessors models ;

M: model model-value value>> ;


USING: accessors images.viewer kernel models ;

M: model set-image [ value>> >>image drop ] [ >>model ] 2bi ;


USING: kernel models ;

M: model update-model drop ;