Paste: models example

Author: who, me?
Mode: factor
Date: Mon, 18 Apr 2011 15:44:18
Plain Text | 
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

New Annotation

Summary:
Author:
Mode:
Body: