<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
                                        <img id="80a5b07d-ea14-4c57-b491-0f9372c89727" src="cid:d1989cdb-5227-4452-8d6a-1b7c9f033cbd" width="363" height="163"></img><br><div class="mb_sig"></div>
                                        <blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
                        <p style="color: #AAAAAA; margin-top: 10px;">Am 30.01.2022 21:06:49 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">Marcel Taeumel uploaded a new version of Tools to project The Trunk:<br>http://source.squeak.org/trunk/Tools-mt.1120.mcz<br><br>==================== Summary ====================<br><br>Name: Tools-mt.1120<br>Author: mt<br>Time: 30 January 2022, 9:06:35.692695 pm<br>UUID: 9ae6768f-fa92-2a42-846e-335169a65751<br>Ancestors: Tools-ct.1119<br><br>Adds a small tool to browse all available glyphs in a font.<br><br>Try this:<br>TextStyle defaultFont browseAllGlyphs.<br>TextStyle defaultFixedFont browseAllGlyphs.<br><br>=============== Diff against Tools-ct.1119 ===============<br><br>Item was added:<br>+ ----- Method: AbstractFont>>browseAllGlyphs (in category '*Tools-Browsing') -----<br>+ browseAllGlyphs<br>+ <br>+     ^ self browseGlyphsFrom: self minCodePoint to: self maxCodePoint!<br><br>Item was added:<br>+ ----- Method: AbstractFont>>browseGlyphsFrom:to: (in category '*Tools-Browsing') -----<br>+ browseGlyphsFrom: firstCodePoint to: lastCodePoint<br>+   "Browse all glyphs in the given range of code points. Use a fall-back character if an inner code point does not have a glyph. DO NOT TRANSLATE!!"<br>+ <br>+      | contents |<br>+         contents := String streamContents: [:s |<br>+             | first last fallbackChar |<br>+          first := firstCodePoint max: (self minCodePoint max: 32+1 "first printable after space").<br>+          last := lastCodePoint min: self maxCodePoint.<br>+                fallbackChar := Character space.<br>+             first to: last do: [:codePoint | | char |<br>+                    (self hasGlyphOf: (char := Character value: codePoint))<br>+                              ifTrue: [s nextPut: char]<br>+                            ifFalse: [s nextPut: fallbackChar]]].<br>+        contents := contents asText addAttribute: (TextFontReference toFont: self); yourself.<br>+        contents := (('    Family name: {1}\       Emphasis: {2}\     Point size: {3}\Pixels per inch: {4}\     Pixel size: {5}\\' withCRs asText format: { self familyName asText addAttribute: (PluggableTextAttribute evalBlock: [self explore]); yourself. self emphasisString. self pointSize. self pixelsPerInch. self pixelSize }) addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); yourself),<br>+           contents.<br>+    contents editWithLabel: self printString.!<br><br><br></div></blockquote></div>