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'.!