If you wish take any button from Object Catalog to a PartsBin, you end with
a wrong button picture.
This single modification fix the bug

This bug exists from a loooong time, I do not sure If I send the fix before.

Edgar

-------------- next part --------------
'From Squeak3.8gamma of ''24 November 2004'' [latest update: #6548] on 17 January 2005 at 10:04:26 am'!
"Change Set:		PartsBin-morphToDropFromFix
Date:			17 January 2005
Author:			Edgar J. De Cleene

If you wish take any button from Object Catalog, you end with a wrong button picture.
This single modification fix the bug "!


!PartsBin methodsFor: 'dropping/grabbing' stamp: 'edc 1/17/2005 09:28'!
morphToDropFrom: aMorph
	"Answer the morph to drop if the user attempts to drop aMorph"

	| aButton |
(aMorph isKindOf: IconicButton) ifTrue:[^aMorph ].

	aButton := IconicButton new.
	aButton color: self color;
		initializeToShow: aMorph withLabel: aMorph externalName andSend: #veryDeepCopy to: aMorph veryDeepCopy.
	^ aButton! !