--- a/Tools__NewSystemBrowser.st	Mon May 09 10:03:28 2016 +0200
+++ b/Tools__NewSystemBrowser.st	Mon May 09 10:03:33 2016 +0200
@@ -18409,7 +18409,7 @@
                             cls := Smalltalk classNamed:nm.
                             cls isNil ifTrue:[
                                 "/ class no longer exists (removed?)
-                                nm colorizeAllWith:(Color gray)
+                                nm withColor:(Color gray)
                             ] ifFalse:[
                                 cls isJavaClass ifTrue:[
                                     cls javaName
@@ -39302,16 +39302,16 @@
                                 ].
                                 iconifiedOrNot := ''.
                                 topView isCollapsed ifTrue:[
-                                    iconifiedOrNot := ' iconified' colorizeAllWith:Color blue.
+                                    iconifiedOrNot := ' iconified' withColor:Color blue.
                                 ].
                                 busyOrNot notEmptyOrNil ifTrue:[
-                                    busyOrNot := busyOrNot allBold colorizeAllWith:Color red
+                                    busyOrNot := busyOrNot allBold withColor:Color red
                                 ].
                                 winLabel := '  ("' , topLabel , '"',busyOrNot,iconifiedOrNot, ')'
                             ].
                         ] ifFalse:[
                             (aProcess isDebugged) ifTrue:[
-                                winLabel := ' (debug)' allBold colorizeAllWith:Color red
+                                winLabel := ' (debug)' allBold withColor:Color red
                             ].
                         ].
                         aProcess id printString , ' [' , pName , ']' , winLabel
@@ -52722,7 +52722,7 @@
     (item notNil) ifTrue:[
         manager notNil ifTrue:[
             manager := managers anyOne.
-            item label:(resources string:'Repository') , '  ' , (manager managerTypeName asText colorizeAllWith:Color gray).
+            item label:(resources string:'Repository') , '  ' , (manager managerTypeName withColor:Color gray).
         ] ifFalse:[
             item label:(resources string:'Repository').
             item enabled: false.
@@ -52733,7 +52733,7 @@
         menu itemsDo:[:item|
             manager notNil ifTrue:[
                 item argument == manager name ifTrue:[
-                    item label: (item label , '  ' , ((resources string: '(default)') asText colorizeAllWith: Color gray)).
+                    item label: (item label , '  ' , ((resources string: '(default)') withColor: Color gray)).
                 ]
             ] ifFalse:[
                 item enabled: false
@@ -53835,10 +53835,10 @@
                                         with:aMatchString allBold
                                         with:implementors size
                                         with:classesMatchingCaseless size)
-                        fromList:({'Implementors:' colorizeAllWith:Color gray}
+                        fromList:({'Implementors:' withColor:Color gray}
                                   ,(implementors collect:[:m | m mclass name])
                                   ,'-'
-                                  ,{'Classes:' colorizeAllWith:Color gray}
+                                  ,{'Classes:' withColor:Color gray}
                                   ,classesMatchingCaseless)
                         values:(#(nil),implementors,#(nil nil),classesMatchingCaseless)
                         buttons:#('No, Search for a Class' 'Show all Implementors') 
@@ -55913,7 +55913,7 @@
                                     stringWithCRs:label,extraStringMsg 
                                     with:((string ? '') 
                                             allBold 
-                                                colorizeAllWith:Color red darkened).
+                                                withColor:Color red darkened).
                     question := question , (resources string:' - none found.').
 
                     ((selector == #findImplementors:in:ignoreCase:match:)
@@ -58297,9 +58297,9 @@
 
     method isInstrumented ifTrue:[
         msg isEmpty ifTrue:[
-            msg := 'Instrumented.' colorizeAllWith:(Color green darkened).
-        ] ifFalse:[
-            msg := ('Instrumented.' colorizeAllWith:(Color green darkened)),' ',msg.
+            msg := 'Instrumented.' withColor:(Color green darkened).
+        ] ifFalse:[
+            msg := ('Instrumented.' withColor:(Color green darkened)),' ',msg.
         ].
         self showCoverageInformation value ifFalse:[
             msg := msg , ' (coverage display is turned off - see "view"-menu)'
@@ -58919,7 +58919,7 @@
                                         "/ Transcript topView raiseDeiconified.
                                         "/ Transcript showCR:'ParseError: ', ex description.
     "/ self halt.
-                                        self showInfo:(errMsg colorizeAllWith:Color red).
+                                        self showInfo:(errMsg withColor:Color red).
                                         self navigationState showingParseError:true.
                                         newCode := nil.
                                     ] do:[