...
initialize
value := 0.
TV open: self.
...
add: anInt
value := value + anInt.
self changed: #value.
instanceVariableNames: ''
TV methodsFor: 'updating'
update: aValue
Transcript show: 'ok'; cr .
TV class
instanceVariableNames: ''
TV class methodsFor: 'instance creation'
open: aCtr
self new model: aCtr