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

slide: Smalltalk -- techniques (1)