
Point2 subclass: #ColorPoint2
  instanceVariableNames: 
    'cValue '
  classVariableNames: ''
  poolDictionaries: '' !


!ColorPoint2 class methods ! !



!ColorPoint2 methods !
 
c
   ^ cValue!
 
c: aString
   cValue := aString!
   
equal: p
   ^ (cValue = p c) and: [super equal: p]! !
