Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ul.298.mcz
==================== Summary ====================
Name: MorphicExtras-ul.298 Author: ul Time: 3 September 2021, 3:50:07.605798 pm UUID: a5ca0c21-1176-4adc-a317-72a33a2ae11a Ancestors: MorphicExtras-mt.297
- ifNotNilDo: -> ifNotNil:
=============== Diff against MorphicExtras-mt.297 ===============
Item was changed: ----- Method: PostscriptCanvas>>image:at:sourceRect:rule: (in category 'private') ----- image: form at: aPoint sourceRect: sourceRect rule: rule | aForm | self preserveStateDuring: [:inner | inner translate: aPoint + self origin. aForm := form depth <= 8 ifTrue: [form asFormOfDepth: 32] ifFalse: [form]. target write: ((aForm colorsUsed includes: Color transparent) ifTrue: [| top f2 c2 offset | "tfel: This was taken from SketchMorph, but is actually needed for all forms that use transparency" + offset := currentTransformation ifNil: [0@0] ifNotNil: [:t | t offset]. - offset := currentTransformation ifNil: [0@0] ifNotNilDo: [:t | t offset]. top := self topLevelMorph. f2 := Form extent: aForm extent depth: self depth. c2 := f2 getCanvas. c2 fillColor: Color white. c2 translateBy: offset - self origin - aPoint clippingTo: f2 boundingBox during: [:c | top fullDrawOn: c]. f2] ifFalse: [aForm])]. !
packages@lists.squeakfoundation.org