'From Cuis 1.0 of 2 October 2009 [latest update: #316] on 13 October 2009 at 8:47:39 am'!

!HandleMorph methodsFor: 'initialization' stamp: 'jmv 10/13/2009 08:46'!
initialize
	"initialize the state of the receiver"
	super initialize.
	self extent: 12 @ 12! !


!NewHandleMorph methodsFor: 'all' stamp: 'ar 8/16/2001 15:48'!
followHand: aHand forEachPointDo: block1 lastPointDo: block2 withCursor: aCursor
	hand _ aHand.
	hand showTemporaryCursor: aCursor "hotSpotOffset: aCursor offset negated".
	borderWidth _ 0.
	color _ Color transparent.
	pointBlock _ block1.
	lastPointBlock _ block2.
	self position: hand lastEvent cursorPoint - (self extent // 2)! !

