Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2037.mcz
==================== Summary ====================
Name: Morphic-ct.2037 Author: ct Time: 25 August 2022, 4:55:01.067239 pm UUID: e0f7b0d0-281d-7f4b-a906-6f78a4e49092 Ancestors: Morphic-ct.2036
Next attempt on fixing UI theme/scale factor updates for open system progress morphs. If you note any further issues, please let me know.
=============== Diff against Morphic-ct.2036 ===============
Item was added: + ----- Method: SystemProgressBarMorph>>extent: (in category 'updating') ----- + extent: aMorph + + | oldWidth | + oldWidth := self width. + + super extent: aMorph. + + self barSize: self barSize * (self width / oldWidth).!
Item was changed: ----- Method: SystemProgressMorph>>applyUserInterfaceTheme (in category 'updating') ----- applyUserInterfaceTheme
super applyUserInterfaceTheme. + self setDefaultParameters. + + self class applyUserInterfaceTheme. "update class vars first" + bars do: [:bar | bar ifNotNil: [bar extent: BarWidth @ BarHeight]]. + labels do: [:label | label ifNotNil: [label font: self font; color: self textColor]].! - self setDefaultParameters.!
Item was changed: ----- Method: SystemProgressMorph>>initialize (in category 'initialization') ----- initialize super initialize. activeSlots := 0. bars := Array new: 10. labels := Array new: 10. lock := Semaphore forMutualExclusion. self setDefaultParameters; morphicLayerNumber: self class progressLayer; layoutPolicy: TableLayout new; listDirection: #topToBottom; cellPositioning: #topCenter; - cellGap: 5; listCentering: #center; hResizing: #shrinkWrap; + vResizing: #shrinkWrap.! - vResizing: #shrinkWrap; - layoutInset: Inset; - minWidth: 150!
Item was changed: ----- Method: SystemProgressMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters"
self + cellGap: 5 px; + layoutInset: Inset; + minWidth: 150 px. + + self color: (self userInterfaceTheme color ifNil: [Color r: 0.9 g: 0.9 b: 0.9]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated.
Preferences menuAppearance3d ifTrue: [self addDropShadow].
self font: (self userInterfaceTheme font ifNil: [TextStyle defaultFont]); textColor: (self userInterfaceTheme textColor ifNil: [Color black]).
self updateColor: self color: self color intensity: 1.!