'From Squeak3.1alpha of 28 February 2001 [latest update: #4233] on 6 August 2001 at 9:03:52 am'! "Change Set: ColorFix-ar Date: 6 August 2001 Author: Andreas Raab Fixes a bug in Morph>>color:"! !Morph methodsFor: 'accessing' stamp: 'ar 8/6/2001 09:03'! color: aColor "Set the receiver's color. Directly set the color if appropriate, else go by way of fillStyle" (aColor isColor or: [aColor isKindOf: InfiniteForm]) ifFalse:[^ self fillStyle: aColor]. color = aColor ifFalse: [self removeProperty: #fillStyle. color _ aColor. self changed]! !