# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1462781027 -7200
# Node ID 34f9ad93c51cdfa93b5f2cc648aabe47b898084d
# Parent  5bea69ee0e19ee7f088d57a7fb135d007bd80024
#REFACTORING by cg
class: Tools::VariableList
changed: #listOfVariables

diff -r 5bea69ee0e19 -r 34f9ad93c51c Tools__VariableList.st
--- 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
 !