--- a/AbstractFileBrowser.st Fri Jan 20 20:18:19 2017 +0000
+++ b/AbstractFileBrowser.st Wed Jan 25 19:02:59 2017 +0000
@@ -2832,7 +2832,11 @@
contentsOfBytesAsHexDump:data numberOfAddressDigits:addrDigits addressStart:virtualStart
"utility helper: generate a hexDump with addresses"
- |lines nHexLines|
+ |lines nHexLines replacementForUnprintable|
+
+ "/ used to be:
+ "/ replacementForUnprintable := $.
+ replacementForUnprintable := Character value:16rB7. "/ a centered dot.
"generate a virtual collection which evaluates and returns lines on-demand"
@@ -2872,11 +2876,14 @@
] ifFalse:[
(byte between:0 and:31) ifTrue:[
"/ the 'nul', 'soh' .. 'gs' chars in unicodePage 2400
- "/ are perfect here, but usually not available
+ "/ are perfect here, but usually not available in the font
+ "/ and we have currently no way of knowing if they are...
+ "/ (could let the font draw into abitmap and check if there is something...)
+ "/ therefore, for now, write a dot.·
"/ asciiLineStream nextPut:(Character value:(byte + 16r2400))
- asciiLineStream nextPut:$.
+ asciiLineStream nextPut:replacementForUnprintable.
] ifFalse:[
- asciiLineStream nextPut:$.
+ asciiLineStream nextPut:replacementForUnprintable.
].
].
].