Christoph Thiede uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ct.547.mcz
==================== Summary ====================
Name: Graphics-ct.547 Author: ct Time: 13 November 2023, 6:36:05.858722 pm UUID: 2d4cc28d-cd67-2544-8c4e-687845589a7d Ancestors: Graphics-dtl.546
Fixes missing escaping in common senders of #asTextFromHtml and #format:. Note that also Texts respond to #format: since Squeak 5.3.
=============== Diff against Graphics-dtl.546 ===============
Item was changed: ----- Method: DisplayScreen>>uiScaleFactor: (in category 'scale factor') ----- uiScaleFactor: aFloat "Sets the effective scale factor for the user interface, i.e., all widgets, tools, and windows. Note that the user can override the #platformScaleFactor, which is just a hint recommended by the platform."
| oldPixelFactor newPixelFactor newScaleFactor | newScaleFactor := aFloat max: 0.75. (UserInterfaceTheme current canFakeScaleFactor: newScaleFactor) ifTrue: [ self flag: #isTTCBased. ^ UserInterfaceTheme current applyScaled: newScaleFactor]. newScaleFactor = 0.75 ifTrue: [(Project uiManager + confirm: ('You are currently using <b>TrueType fonts</b>. Your requested scale factor of <b>{1}%</b> looks better using pre-rendered <b>pixel fonts</b>.<br><br>Do you want to switch to pixel fonts now?' translated asTextFromHtml format: {(newScaleFactor * 100) rounded}) - confirm: ('You are currently using <b>TrueType fonts</b>. Your requested scale factor of <b>{1}%</b> looks better using pre-rendered <b>pixel fonts</b>.<br><br>Do you want to switch to pixel fonts now?' translated format: {(newScaleFactor * 100) rounded}) asTextFromHtml title: 'Blurry Fonts Detected' translated) == true ifTrue: [UserInterfaceTheme cleanUpAndReset. ^ self uiScaleFactor: newScaleFactor]]. "Do nothing if the factor is unchanged. For comparison, use actual pixel-based scale factor to account for rounding errors, instead of #uiScaleFactor." oldPixelFactor := RealEstateAgent scaleFactor. newScaleFactor = oldPixelFactor ifTrue: [^ self]. "Update system's PPI to then compute the new pixel-based scale factor." TextStyle pixelsPerInch: 96.0 * newScaleFactor. newPixelFactor := RealEstateAgent resetScaleFactor; scaleFactor. "Let the current project (kind) decide how to update the system." Project current ifNotNil: [:p | p displayScaleChangedFrom: oldPixelFactor to: newPixelFactor].!