--- a/Tools__VariableList.st	Mon May 09 10:03:40 2016 +0200
+++ b/Tools__VariableList.st	Mon May 09 10:03:47 2016 +0200
@@ -664,7 +664,7 @@
                         classShown ifFalse:[ entry classShown:classShown ].
                     ].
                     sortByName ifFalse:[
-                        nameList addFirst:(("'----- ' , "cls nameInBrowser" , ' -----'") asText colorizeAllWith: Color gray).
+                        nameList addFirst:(("'----- ' , "cls nameInBrowser" , ' -----'") withColor: Color gray).
                     ]
                 ].
             ].
@@ -814,7 +814,7 @@
     label isNil ifTrue:[
         label := name.
         type notNil ifTrue:[
-            label := (label , ' ' ,  (type displayString colorizeAllWith: Color brown))
+            label := (label , ' ' ,  (type displayString withColor: Color brown))
         ] ifFalse:[
             "/ Hack for Java classes to display field type
             class theNonMetaclass isJavaClass ifTrue:[
@@ -824,7 +824,7 @@
                     label := label asText , 
                             ' ' , 
                                 (('< ' , (JavaMethod fieldTypeFromStream: (field descriptor readStream) in: class theNonMetaclass javaPackage) , ' >')
-                                        asText colorizeAllWith: Color brown).
+                                        withColor: Color brown).
                 ].
             ].    
         ].
@@ -840,7 +840,7 @@
 
     l := self label.
     class notNil ifTrue:[
-        ^ label,' (' ,(class nameWithoutPrefix colorizeAllWith: Color gray),')' 
+        ^ label,' (' ,(class nameWithoutPrefix withColor: Color gray),')' 
     ].
     ^label
 !