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.!
packages@lists.squeakfoundation.org