Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1983.mcz

==================== Summary ====================

Name: Morphic-mt.1983
Author: mt
Time: 5 May 2022, 12:58:55.042935 pm
UUID: b0defe00-8806-1844-9dce-68ea9703b58a
Ancestors: Morphic-mt.1982

Fixes scaling for simple frame adornments.

=============== Diff against Morphic-mt.1982 ===============

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])
+ 				* RealEstateAgent scaleFactor) truncated.
+ 			aCanvas
- 			[ aCanvas
  				frameRectangle: self innerBounds
+ 				width: adornmentWidth
- 				width: (self valueOfProperty: #frameAdornmentWidth ifAbsent: [1])
  				color: aColor.
  			aCanvas
+ 				frameRectangle: (self innerBounds insetBy: adornmentWidth)
+ 				width: adornmentWidth
- 				frameRectangle: (self innerBounds insetBy: 1)
- 				width: (self valueOfProperty: #frameAdornmentWidth ifAbsent: [1])
  				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 innerBounds topRight - (form width @ 0)
  				sourceRect: form boundingBox
  				rule: 34 ]!