'From etoys3.0 of 24 February 2008 [latest update: #2082] on 22 August 2008 at 11:24:15 am'!
"Change Set:		msgHarmonize-sw
Date:			22 August 2008
Author:			Scott Wallace

Harmonizes two recently-added informers"!


!HaloMorph methodsFor: 'private' stamp: 'sw 8/22/2008 11:15'!
prepareToTrackCenterOfRotation: evt with: rotationHandle
	"The mouse went down on the center of rotation."

	evt hand obtainHalo: self.
	evt shiftPressed
		ifTrue:
			[self removeAllHandlesBut: rotationHandle]
		ifFalse:
			[PopUpMenu informCenteredAboveCursor: 'To change the center of rotation, hold down the shift
key as you drag from the crosshairs icon.' translated.
			^ self.
			"rotationHandle setProperty: #dragByCenterOfRotation toValue: true.
			self startDrag: evt with: rotationHandle"].
	evt hand showTemporaryCursor: Cursor blank! !