Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1169.mcz
==================== Summary ====================
Name: Tools-mt.1169 Author: mt Time: 4 August 2022, 9:48:36.935989 am UUID: de9240c0-3910-f74c-b22d-12e615be3271 Ancestors: Tools-eem.1168
To single-byte text-conversion "browsers," add header for rows and colums to, for example, quickly look up E4.
=============== Diff against Tools-eem.1168 ===============
Item was changed: ----- Method: ByteTextConverter class>>browseAllCodePointsUsing: (in category '*Tools-Browsing') ----- browseAllCodePointsUsing: aFont "Apply the receivers encoding (code points 0 to 255) to browse the result using glyphs of aFont (and its #fallbackFont)."
aFont + browseGlyphsOf: (Array streamContents: [:s | + "1) Header for columns" + s tab. 0 to: 15 do: [:col | s tab; nextPutAll: col printStringHex]. s cr. + "2) Cells" - browseGlyphsOf: (Array streamContents: [:s | | | self decodeTable withIndexDo: [:ea :i | | codePoint | codePoint := ea = -1 ifTrue: [ea] ifFalse: [ea bitAnd: 16r1FFFFF "Drop language info / leadingChar"]. codePoint := codePoint caseOf: { [-1] -> [32]. [9 "tab"] -> [32]. [10 "line break"] -> [32]. [13 "line break"] -> [32]. } otherwise: [codePoint]. + (i-1 \ 16 = 0 and: [s position > 0]) "3) Header for rows" + ifTrue: [s cr; tab; nextPutAll: (i-1 // 16) printStringHex]. - (i-1 \ 16 = 0 and: [s position > 0]) ifTrue: [s cr]. s tab; nextPut: codePoint]]) label: self name, ' decoding table'.!
squeak-dev@lists.squeakfoundation.org