Model subclass: \$#\$Ctr\fboxModel
... initialize value := 0. TV open: self. ... add: anInt value := value + anInt. self changed: #value.
Model subclass: \$#\$Ctr\fboxModel
... initialize value := 0. TV open: self. ... add: anInt value := value + anInt. self changed: #value.