<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
<img id="4dcb1841-eb45-40a5-a19b-a60d156d9488" src="cid:13eb982e-7511-4b09-b78e-2bf45b3251fe" width="308" height="160"></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;'>
<p style='color: #AAAAAA; margin-top: 10px;'>Am 30.01.2022 21:46:39 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.1121.mcz<br><br>==================== Summary ====================<br><br>Name: Tools-mt.1121<br>Author: mt<br>Time: 30 January 2022, 9:46:23.414064 pm<br>UUID: 6f4e1943-136a-ab49-80e3-3d3cddb6c525<br>Ancestors: Tools-mt.1120<br><br>Revise Tools-mt.1120. I forgot to show the most important info: code-point range and fall-back code point. :-) (Sorry for the noise.)<br><br>=============== Diff against Tools-mt.1120 ===============<br><br>Item was changed:<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 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>+ <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} ({4}ppi {5}px)\Code points: 16r{6} to: 16r{7}\ Fallback: 16r{8} ({9})\\' withCRs asText format: { self familyName asText addAttribute: (PluggableTextAttribute evalBlock: [self explore]); yourself. self emphasisString. self pointSize. self pixelsPerInch. self pixelSize. first printStringBase: 16 length: 6 padded: true. last printStringBase: 16 length: 6 padded: true. fallbackChar codePoint printStringBase: 16 length: 6 padded: true. fallbackChar storeString}) addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); 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></body>