'From PharoCore1.1ALPHA of ''19 October 2009'' [Latest update: #11076] on 7 December 2009 at 5:53:10 pm'!

!SystemWindow methodsFor: 'dropping/grabbing' stamp: 'AlainPlantec 12/7/2009 17:52'!
aboutToBeGrabbedBy: aHand	
	super aboutToBeGrabbedBy: aHand.
	self valueOfProperty: #clickPoint 
		ifPresentDo: [:firstClick | 
				self position: aHand position + (self position - firstClick). 
				self removeProperty: #clickPoint] ! !