--- a/InspectorView.st	Fri Aug 30 10:46:49 2019 +0200
+++ b/InspectorView.st	Fri Aug 30 10:46:54 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -3210,7 +3212,7 @@
         "/ this is returned by collection-inspectors,
         "/ when a field-index for a no-longer-present-index is selected
         "/ (eg. if an OrderedCollection growed to a smaller size in the meantime)
-        ^ '«element no longer present»' withColor:Color grey.
+        ^ '«element no longer present»' allGray.
     ].
 
     idx := self theSingleSelectionIndex.
@@ -3249,7 +3251,7 @@
 listEntryForName:nameString value:value
     "generates the fieldListEntry (icon + valueString)"
 
-    |entryString|
+    |entryString boldName|
 
     UserPreferences current showTypeIndicatorInInspector ifFalse:[
         ^ nameString
@@ -3258,7 +3260,11 @@
     Error handle:[:ex |
         ^ nameString
     ] do:[
-        entryString := nameString allBold, (self valueStringInListEntryForValue:value).
+        boldName := nameString allBold.
+        value isNil ifTrue:[
+            boldName := boldName allGray.
+        ].
+        entryString := boldName, (self valueStringInListEntryForValue:value).
 
         "/ for color values, generate a space character in that color
         (value isProtoObject not 
@@ -3292,15 +3298,15 @@
     "/ UserPreferences current showTypeIndicatorInInspector ifFalse:[^ nil].
     value isBridgeProxy ifTrue:[
         "avoid sending out messages"
-        ^ '» Bridge Proxy «'
+        ^ '» Bridge Proxy «'
     ].
     value isProxy ifTrue:[
         "avoid sending out messages"
-        ^ '» Proxy «'
+        ^ '» Proxy «'
     ].
     value isLazyValue ifTrue:[
         "do not block on not yet finished Futures et al"
-        ^ '» Lazy value «'
+        ^ '» Lazy value «'
     ].
     value class == ValueHolder ifTrue:[
         "/ just in case...
@@ -3308,7 +3314,7 @@
 
         s := self plainValueStringInListEntryForValue:value value.
         s notNil ifTrue:[
-            ^ '« ' , s , ' »'
+            ^ '« ' , s , ' »'
         ].
         ^ nil
     ].
@@ -3496,7 +3502,7 @@
     (inspectedObject notNil and:[value == inspectedObject]) ifTrue:[
         shownListEntry := shownListEntry,' (==self)' 
     ].
-    ^ shownListEntry withColor:Color grey
+    ^ shownListEntry allGray
 
     "Created: / 13-06-2012 / 12:04:31 / cg"
     "Modified: / 22-07-2019 / 10:31:43 / Claus Gittinger"
@@ -3526,8 +3532,8 @@
     d := self derivedFields.
     (d isDictionary) ifTrue:[
         actionItems := d keys select:[:k | k first == $!!] as:OrderedCollection .
-        valueItems := d keys select:[:k | '-¤' includes:k first] as:OrderedCollection.
-        otherItems := d keys select:[:k | ('!!-¤' includes: k first) not] as:OrderedCollection.
+        valueItems := d keys select:[:k | '-¤' includes:k first] as:OrderedCollection.
+        otherItems := d keys select:[:k | ('!!-¤' includes: k first) not] as:OrderedCollection.
         ^ ((actionItems sort , valueItems "sort") collect:[:k | (k copyTo:1),(k copyFrom:2) allItalic])
           ,
           otherItems sort 
@@ -4189,7 +4195,7 @@
     ].
 
     "/ another special (pseudo) entries?
-    (lineEntry startsWith:$¤) ifTrue:[
+    (lineEntry startsWith:$¤) ifTrue:[
         ^ self valueForSpecialLine:lineEntry
     ].
 
@@ -4255,7 +4261,7 @@
     extraAttributes := self myObjectsInspectorExtraAttributes.
     (extraAttributes includesKey:line) ifTrue:[
         Error handle:[:ex |
-            fieldValue := (('Error: ',ex description) withColor:Color red)
+            fieldValue := (('Error: ',ex description) allRed)
                                 "actionForAll:[Debugger enterException:ex]"
         ] do:[
             fieldValue := (extraAttributes at:line) value
@@ -4617,7 +4623,7 @@
 !
 
 tryToSelectKeyNamed:aString
-    "called from the debugger to try to select the previousöy selected
+    "called from the debugger to try to select the previousöy selected
      field (by name)"
      
     |list idx aStringWithSpace|