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

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

Name: Morphic-mt.1950
Author: mt
Time: 28 March 2022, 4:44:05.416636 pm
UUID: c3d26fbe-87b1-0248-84b9-03e0097e2d01
Ancestors: Morphic-ct.1949

Minor speed-up and less GC pressure when drawing the keyboard-focus indication.

=============== Diff against Morphic-ct.1949 ===============

Item was changed:
  ----- Method: Morph>>indicateKeyboardFocus (in category 'testing') -----
  indicateKeyboardFocus
  
+ 	^ (self valueOfProperty: #indicateKeyboardFocus ifAbsent: nil)
+ 		ifNil: [self class indicateKeyboardFocus]
+ 		ifNotNil: [:symbol | symbol ~~ #never]!
- 	^ (self hasProperty: #indicateKeyboardFocus)
- 		ifTrue: [(self valueOfProperty: #indicateKeyboardFocus) ~~ #never]
- 		ifFalse: [self class indicateKeyboardFocus]!

Item was changed:
  ----- Method: Morph>>keyboardFocusColor (in category 'drawing') -----
  keyboardFocusColor
  
+ 	^ self
+ 		valueOfProperty: #keyboardFocusColor
+ 		ifAbsentPut: [self userInterfaceTheme keyboardFocusColor ifNil: [TranslucentColor r: 0.3 g: 0.5 b: 0.5 alpha: 0.5]]!
- 	^ self userInterfaceTheme keyboardFocusColor ifNil: [TranslucentColor r: 0.3 g: 0.5 b: 0.5 alpha: 0.5]!

Item was changed:
  ----- Method: Morph>>keyboardFocusWidth (in category 'drawing') -----
  keyboardFocusWidth
  
+ 	^ self
+ 		valueOfProperty: #keyboardFocusWidth
+ 		ifAbsentPut: [((self userInterfaceTheme keyboardFocusWidth ifNil: [2])
+ 			* RealEstateAgent scaleFactor) truncated]!
- 	^ ((self userInterfaceTheme keyboardFocusWidth ifNil: [2]) * RealEstateAgent scaleFactor) truncated!

Item was changed:
  ----- Method: ScrollPane>>setDefaultParameters (in category 'initialization') -----
  setDefaultParameters
  	"change the receiver's appareance parameters"
  
  	self
  		color: (self userInterfaceTheme color ifNil: [Color white]);
  		borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle simple]) copy;
  		borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray: 0.6]);
+ 		borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated.
+ 	
+ 	self removeProperty: #keyboardFocusWidth.
+ 	self removeProperty: #keyboardFocusColor.!
- 		borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated.!