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

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

Name: Morphic-mt.1856
Author: mt
Time: 24 January 2022, 10:38:28.525852 am
UUID: ebe7ae59-aa36-9346-b43b-f77754c17152
Ancestors: Morphic-mt.1855

Complements System-mt.1292

=============== Diff against Morphic-mt.1855 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar>>scaleFactorsOn: (in category 'submenu - extras') -----
  scaleFactorsOn: menu
  
  	| presets currentScaleFactor currentPlatformScaleFactor |
  	currentScaleFactor := (Display relativeUiScaleFactor * 100) rounded.
  	currentPlatformScaleFactor := Display platformScaleFactorKnown
  		ifTrue: [(Display platformScaleFactor * 100) rounded].
+ 	presets := 75 to: 300 by: 25.
- 	presets := 100 to: 300 by: 25.
  	
  	presets do: [:scale |
+ 		scale = 100 ifTrue: [menu addLine]. "Normal scales."
  		scale = 175 ifTrue: [menu addLine]. "TTCFont used after this line..."
  		menu addItem: [:item|
  			item
+ 				contents: ('{1}{2}%{3}{4}' format: {
- 				contents: ('{1}{2}%{3}' format: {
  					currentScaleFactor = scale ifTrue: ['<yes>'] ifFalse: ['<no>'].
  					scale.
  					DisplayScreen relativeScaleFactorEnabled
  						ifTrue: ['' "macOS"] ifFalse: [
  							scale = currentPlatformScaleFactor
+ 								ifTrue: [' (recommended)' translated] ifFalse: ['']].
+ 					scale = 75 ifTrue: [' (low ppi)' translated] ifFalse: ['']
- 								ifTrue: [' (recommended)' translated] ifFalse: ['']]
  					});
  				target: Display;
  				selector: #relativeUiScaleFactor:;
  				arguments: {scale / 100}]].
  		
  	menu addLine.
  	menu addItem: [:item |
  		item
  			contents: ((presets includes: currentScaleFactor) not ifTrue: ['<yes>' , 'Custom: ' translated, currentScaleFactor, '% ...'] ifFalse: ['<no>' , 'Other scale factor...' translated]);
  			target: self;
  			selector: #chooseCustomScaleFactor].!