Example -- class

  Behavior subclass: \$#\$Ctr
  instanceVariableNames: 'value'
  Ctr methodsFor: 'initialization'
     initialize
  	value := 0.
  Ctr methodsFor: 'modifications'
     add: Avalue
  	value := value + aValue.
  Ctr methodsFor: 'inspection'
     value
  	\$\hat{\mbox{}}\$value
  

slide: Smalltalk -- objects (2)