'From etoys2.2 of 28 October 2007 [latest update: #1706] on 29 October 2007 at 8:25:45 am'!
"Change Set:		translucFix-sw
Date:			29 October 2007
Author:			Scott Wallace

TRAC #4512 - Fix bug that broke setting of translucency in all four translucency sliders of the full Object Properties Morph."!


!ColorPickerMorph methodsFor: 'event handling' stamp: 'sw 10/29/2007 08:23'!
mouseDown: evt
	"The mouse went down in the picker; process it."

	| localPt |
	localPt _ evt cursorPoint - self topLeft.
	self deleteAllBalloons.
	clickedTranslucency := false.
	(TransparentBox containsPoint: localPt)
		ifTrue:
			[self allowsTranslucency ifTrue:
				[clickedTranslucency _ true]]
		ifFalse:
			[self inhibitDragging ifFalse:
				[(DragBox containsPoint: localPt)
					ifTrue: [^ evt hand grabMorph: self]].

			(RevertBox containsPoint: localPt)
				ifTrue: [^ self updateColor: originalColor feedbackColor: originalColor]].
	self inhibitDragging ifFalse: [self comeToFront].
	sourceHand _ evt hand.
	self startStepping! !