'Smalltalk file prepared for testing On To Smalltalk'!


!ModelSubclass methodsFor: 'experimenting'!
setX: value
  x := value.
  self changed: #x.
! !

!ModelSubclass methodsFor: 'experimenting'!
setY: value
  y := value.
  self changed: #y.
! !
M setX: 0.
M setY: 1.
!