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