AbstractFileBrowser.st
branchjv
changeset 17304 3eea1002b141
parent 17303 85890687ff9c
parent 17252 1182be543bb2
child 17379 028adf14bc05
--- 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.
                             ].
                         ].
                     ].