Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2131.mcz
==================== Summary ====================
Name: Morphic-mt.2131 Author: mt Time: 22 September 2023, 1:55:23.04797 pm UUID: 994a8dfe-6363-9440-a320-07e398585048 Ancestors: Morphic-mt.2130
Speaking of rabbit holes ... fixes another visual regression from Morphic-mt.2129.
=============== Diff against Morphic-mt.2130 ===============
Item was changed: ----- Method: PluggableTextMorph>>drawFrameAdornment:on: (in category 'drawing') ----- drawFrameAdornment: aColor on: aCanvas "Indicate edit status for the text editor" self class simpleFrameAdornments ifTrue: [ | adornmentWidth | adornmentWidth := (self valueOfProperty: #frameAdornmentWidth ifAbsent: [1]) px. aCanvas + frameRectangle: self scroller bounds - frameRectangle: self innerBounds width: adornmentWidth color: aColor. aCanvas + frameRectangle: (self scroller bounds insetBy: adornmentWidth) - frameRectangle: (self innerBounds insetBy: adornmentWidth) width: adornmentWidth color: (aColor alpha: aColor alpha / 3.0) ] ifFalse: [ | form | "Class-side adornment cache is currently using pre-multiplied alpha, so we need to use rule 34 which works for < 32bpp, too." form := self class adornmentWithColor: aColor. aCanvas image: form + at: self scroller bounds topRight - (form width @ 0) - at: self innerBounds topRight - (form width @ 0) sourceRect: form boundingBox rule: 34 ]!
packages@lists.squeakfoundation.org