'From Cuis 5.0 [latest update: #4048] on 29 February 2020 at 1:46:02 pm'!

!Morph methodsFor: 'menus' stamp: 'KenD 2/29/2020 13:04:34'!
changeColor
	"Change the color of the receiver -- triggered, e.g. from a menu"

	"ColorPickerMorph new
		choseModalityFromPreference;
		sourceHand: self world activeHand;
		target: self;
		selector: #color:;
		originalColor: self color;
		putUpFor: self near: self morphFullBoundsInWorld"
	self flag: #jmvVer2.
	(ClickColorMorph)
		ifNil: [ self showBalloon: 'Interactive color change is currently disabled. Please use #color:' ]
		ifNotNil: [ 
			(self class == Morph)
				ifTrue: [ PopUpMenu inform: 'Cannot set #color of direct Morph instances'  ]
				ifFalse: [ ImagePallet clickSelectColorsFor: self ]
		]! !

