Object subclass: #Procedure
  instanceVariableNames: ''
  classVariableNames: ''
  poolDictionaries: ''    !


!Procedure class methods !
   
breakit: p
   | nuPt |
   nuPt := Point2 new x: 3.2.
   nuPt y: 4.5.
   ^ p equal: nuPt! !



!Procedure methods ! !