'From Cuis 6.0 [latest update: #5091] on 4 March 2022 at 3:43:39 pm'! !ColorEditorPanel methodsFor: 'initialization' stamp: 'KenD 3/4/2022 13:32:24'! colorSwatchesBeDroppable {alphaSwatch. colorPane. colorSwatch.} do: [ :dropTarget | dropTarget setProperty: #'allowsMorphDrop' toValue: true; setProperty: #wantsDroppedMorph:event: toValue: [ :dropMorph :evt | dropMorph valueWhenDropped isKindOf: Color] ; setProperty: #dropAction toValue: [ :dropMorph :colorValue | self setColor: colorValue. dropMorph showAcceptAndDeleteSelf. ] ]. ! !