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.!