
Object subclass: #Point2
  instanceVariableNames: 
    'xValue yValue '
  classVariableNames: ''
  poolDictionaries: ''   !


!Point2 class methods ! !



!Point2 methods !
   
equal: p
    ^ (xValue = p x) and: [yValue = p y]!
 
x
    ^ xValue!

x: aNumber
    xValue := aNumber!
  
y
    ^ yValue!

y: aNumber
    yValue := aNumber! !
