diff -r b7e9a220c733 -r 693d13243c07 Tools__ViewTreeApplication.st
--- a/Tools__ViewTreeApplication.st	Thu May 30 09:44:58 2019 +0200
+++ b/Tools__ViewTreeApplication.st	Fri Jun 07 22:51:03 2019 +0200
@@ -2884,42 +2884,43 @@
     label isEmptyOrNil ifTrue:[^ self].
 
     widget isNil ifTrue:[
-	isValidAndShown := true.
+        isValidAndShown := true.
     ] ifFalse:[
-	widget id isNil ifTrue:[
-	    isDrawnShown := false.
-
-	    self exists ifFalse:[
-		xOffsetAdditionalName := nil.
-	    ].
-	    isValidAndShown := false.
-	] ifFalse:[
-	    isValidAndShown := widget shown.
-	].
+        widget id isNil ifTrue:[
+            isDrawnShown := false.
+
+            self exists ifFalse:[
+                xOffsetAdditionalName := nil.
+            ].
+            isValidAndShown := false.
+        ] ifFalse:[
+            isValidAndShown := widget shown.
+        ].
     ].
 
     isValidAndShown ifFalse:[
-	label := Text string:label emphasis:#italic.
-	label colorizeAllWith:Color gray.
+        label := Text string:label emphasis:#italic.
+        label withColor:Color gray.
     ].
 
     labelHeight := self heightOn:aGC.
     self displayLabel:label h:labelHeight on:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected.
 
     xOffsetAdditionalName notNil ifTrue:[
-	additionalName := self additionalLabelForItem:self.
-
-	additionalName notNil ifTrue:[
-	    self displayLabel:additionalName
-			    h:labelHeight on:aGC
-			    x:(x + xOffsetAdditionalName) y:y
-			    h:h.
-	] ifFalse:[
-	    xOffsetAdditionalName := nil.
-	].
+        additionalName := self additionalLabelForItem:self.
+
+        additionalName notNil ifTrue:[
+            self displayLabel:additionalName
+                            h:labelHeight on:aGC
+                            x:(x + xOffsetAdditionalName) y:y
+                            h:h.
+        ] ifFalse:[
+            xOffsetAdditionalName := nil.
+        ].
     ].
 
     "Modified (format): / 16-08-2017 / 12:57:39 / cg"
+    "Modified: / 07-06-2019 / 22:14:30 / Claus Gittinger"
 !
 
 recursiveAdditionalNameBehaviourChanged