USE: models models.arrow

SYMBOL: m

10 <model>  m set

TUPLE: print-observer msg ;
M: print-observer model-changed ( model observer -- )
    msg>> print value>> . ;

T{ print-observer f "I've changed!" } m get add-connection

20 m get set-model

m get [ 1 + ] <arrow>

T{ print-observer f "I've changed too!" } swap add-connection

42 m get set-model