--- a/AbstractLauncherApplication.st	Tue May 03 20:40:51 2016 +0200
+++ b/AbstractLauncherApplication.st	Wed May 04 07:50:25 2016 +0200
@@ -727,13 +727,13 @@
                                 ] ifFalse:[
                                     busyOrNot := ' [busy]'
                                 ].
-                                busyOrNot := busyOrNot allBold colorizeAllWith:Color red
+                                busyOrNot := busyOrNot allBold withColor:Color red
                             ]
                         ]
                     ].
                     iconifiedOrNot := ''.
                     v topView isCollapsed ifTrue:[
-                        iconifiedOrNot := ' (iconified)' colorizeAllWith:Color blue.
+                        iconifiedOrNot := ' (iconified)' withColor:Color blue.
                     ].
                     appName,'"',(v label ? 'aView'),'"',busyOrNot,iconifiedOrNot
                 ].
@@ -5788,7 +5788,7 @@
                                                   ].
                         listView1 middleButtonMenu:menu.
 
-                        nm := (method whoString) colorizeAllWith:(Color blue).
+                        nm := (method whoString) withColor:(Color blue).
                     ].
                     entry1 := MultiColListEntry new:2 tabulatorSpecification:tabs.
                     entry1 colAt:1 put:'compiled method'; colAt:2 put:nm.
@@ -5814,7 +5814,7 @@
                         list2 list:((module functions select:[:f | f notNil])
                                         collect:[:f | |entry|
                                                         entry := MultiColListEntry new:2 tabulatorSpecification:tabs.
-                                                        entry colAt:1 put:(f name colorizeAllWith:Color blue).
+                                                        entry colAt:1 put:(f name withColor:Color blue).
                                                         entry colAt:2 put:('address: (16r) ' , (f code address hexPrintString leftPaddedTo:8 with:$0)).
                                                         entry
                                                 ]).
@@ -7246,12 +7246,12 @@
 
     root := myHierarchicalItemWithLabelAndIcon new.
     root icon:folderIcon.
-    root label:((resources string:'[Compiled Packages]') asText allItalic colorizeAllWith:Color grey).
+    root label:((resources string:'[Compiled Packages]') asText allItalic withColor:Color grey).
     root type:#compiledPackagesRoot.
     masterRoot add:root.
 
     monticelloRoot := myHierarchicalItemWithLabelAndIcon new.
-    monticelloLabel := ((resources string:'[Monticello Packages]') asText allItalic colorizeAllWith:Color grey).
+    monticelloLabel := ((resources string:'[Monticello Packages]') asText allItalic withColor:Color grey).
     monticelloRoot type:#monticelloRoot.
 
     (MCRepositoryGroup isNil or:[MCRepositoryGroup isLoaded not]) ifTrue:[
@@ -7354,7 +7354,7 @@
 
     isAlreadyLoaded := false.
     Error handle:[:ex |
-        item label:(item label , (' ERROR - please rebuild!!' colorizeAllWith:Color red)).
+        item label:(item label , (' ERROR - please rebuild!!' withColor:Color red)).
     ] do:[    
         isAlreadyLoaded := 
             (defClass := ProjectDefinition definitionClassForPackage:packageID) notNil
@@ -7434,7 +7434,7 @@
             "/ collapse all and fully expand all matching items
             masterRoot recursiveDo:[:item |
                 item collapse.
-                item label:(item label copy asText allNonBold colorizeAllWith:Color grey).
+                item label:(item label copy asText allNonBold withColor:Color grey).
             ].
             firstMatchingItem := nil.
             matchingItems do:[:item |
@@ -7480,7 +7480,7 @@
 
                 reposItem := myHierarchicalItemWithLabelAndIcon new.
                 reposItem icon:folderIcon.
-                reposItem label:each displayString , ((resources string:' [MC Repository]') asText allItalic colorizeAllWith:Color grey).
+                reposItem label:each displayString , ((resources string:' [MC Repository]') asText allItalic withColor:Color grey).
                 reposItem type:#monticelloRepository.
                 reposItem info:each.
                 monticelloRoot add:reposItem.
@@ -7703,7 +7703,7 @@
                             folderRoot isNil ifTrue:[
                                 folderRoot := myHierarchicalItemWithLabelAndIcon new.
                                 folderRoot icon:folderIcon.
-                                folderRoot label:((resources string:'[%1]' with:eachDirName) asText allItalic colorizeAllWith:Color grey).
+                                folderRoot label:((resources string:'[%1]' with:eachDirName) asText allItalic withColor:Color grey).
                                 folderRoot type:#compiledPackagesRoot.
                             ].    
                             self 
@@ -7819,7 +7819,7 @@
 readPackageTree
     packageDirPath := Smalltalk getSystemFileName:'packages'.
     packageDirPath isNil ifTrue:[
-        root label:root label,((resources string:' (no "packages" folder found)') colorizeAllWith:Color red).
+        root label:root label,((resources string:' (no "packages" folder found)') withColor:Color red).
     ] ifFalse:[
         packageDirPath asFilename directoryContentsAsFilenames sort do:[:fn |
             |item base nm path parentPath parent isLibrary isApplication isAlreadyLoaded 
@@ -8012,7 +8012,7 @@
         ].
         info := comment asString.
     ] ifFalse:[ 
-        info := info colorizeAllWith:Color red.
+        info := info withColor:Color red.
     ].
     infoTextHolder value:info.
 !