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

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

Name: Graphics-mt.532
Author: mt
Time: 11 August 2022, 10:50:27.946716 am
UUID: 17ac3673-2a80-f14a-8fc0-600139584858
Ancestors: Graphics-mt.531

Fixes (and polishes) font preview for symbol fonts such as "Segoe UI Emoji" or "Wingdings".

=============== Diff against Graphics-mt.531 ===============

Item was changed:
  ----- Method: AbstractFont>>symbolSample (in category 'example') -----
  symbolSample
  	"Variation of Text class >> #symbolSample, which uses the receiver's available code points. This is important for fonts such as Wingdings."
  	
+ 	^ String streamContents: [:stream | | codePoint lineLength maxLineLength character numLines |
+ 		lineLength := numLines := 0.
+ 		codePoint := self minCodePoint max: 16r1000.
+ 		maxLineLength := (TextStyle defaultFont widthOf: $x) * 45.
+ 		[numLines > 20 or: [codePoint > self maxCodePoint]] whileFalse: [
- 	^ String streamContents: [:stream | | start lineLength character |
- 		lineLength := 0.
- 		(start := self minCodePoint max: 33) to: (self maxCodePoint min: start + 200) do: [:codePoint |
  			(self hasGlyphOf: (character := Character value: codePoint))
+ 				ifTrue: [
+ 					stream nextPut: character.
+ 					((lineLength := lineLength + (self widthOf: character)) > maxLineLength) ifTrue: [
- 				ifTrue: [stream nextPut: character.
- 					((lineLength := lineLength + 1) > 30) ifTrue: [
  						lineLength := 0.
+ 						numLines := numLines + 1.
+ 						stream cr]].
+ 			codePoint := codePoint + 1 ]]!
- 						stream cr]]]]!