Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1969.mcz
==================== Summary ====================
Name: Morphic-mt.1969 Author: mt Time: 25 April 2022, 10:50:38.356234 am UUID: 0455e656-cb7c-5247-8c3e-3a747a82cdf2 Ancestors: Morphic-tpr.1968
Tweak list of scale factors. Only allow to go above 100% if you choose to only show factors relative to the current platform scale factor.
Well, you can still type-in any custom factor but to select the ones with pre-rendered fonts will be more difficult. For example, when the platform recommends 2.0, then 75%, 100%, 125%, and 150% would be 37.5%, 50%, 62.25%, and 75%. Rounding those to 25% steps would work.
=============== Diff against Morphic-tpr.1968 ===============
Item was changed: ----- Method: TheWorldMainDockingBar>>scaleFactorsOn: (in category 'submenu - extras') ----- scaleFactorsOn: menu
+ | showsRelative presets currentScaleFactor currentPlatformScaleFactor | + showsRelative := DisplayScreen relativeScaleFactorEnabled. - | presets currentScaleFactor currentPlatformScaleFactor | currentScaleFactor := (Display relativeUiScaleFactor * 100) rounded. currentPlatformScaleFactor := Display platformScaleFactorKnown ifTrue: [(Display platformScaleFactor * 100) rounded]. + showsRelative + ifFalse: [presets := 75 to: 300 by: 25] + ifTrue: [presets := 100 to: 200 by: 25]. - presets := 75 to: 300 by: 25. presets do: [:scale | + showsRelative ifFalse: [ + scale = 100 ifTrue: [menu addLine]. "Normal scales." + scale = 175 ifTrue: [menu addLine]. "TTCFont used after this line..."]. - 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}' format: { - contents: ('{1}{2}%{3}{4}' format: { currentScaleFactor = scale ifTrue: ['<yes>'] ifFalse: ['<no>']. scale. + showsRelative ifTrue: [''] ifFalse: [ + scale = currentPlatformScaleFactor + ifTrue: [' (recommended)' translated] ifFalse: ['']] }); - DisplayScreen relativeScaleFactorEnabled - ifTrue: ['' "macOS"] ifFalse: [ - scale = currentPlatformScaleFactor - ifTrue: [' (recommended)' translated] ifFalse: ['']]. - scale = 75 ifTrue: [' (low ppi)' 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].!
packages@lists.squeakfoundation.org