--- a/Tools__MethodCategoryList.st	Mon May 09 10:03:01 2016 +0200
+++ b/Tools__MethodCategoryList.st	Mon May 09 10:03:12 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -1113,7 +1111,7 @@
                                 requiredProtocolForClass do:[:sel | 
                                     |selectorInRed missingMethodPlaceHolder|
 
-                                    selectorInRed := sel colorizeAllWith:Color red.
+                                    selectorInRed := sel withColor:Color red.
                                     missingMethodPlaceHolder := MissingMethod mclass:aClass selector:sel.
                                     whatToDo value:aClass value:'required' value:selectorInRed value:missingMethodPlaceHolder.
                                 ].
@@ -1593,7 +1591,7 @@
 
 
         item := item , ((' (%1)' bindWith:(categoryBag occurrencesOf:cat)) 
-                            colorizeAllWith:pseudoEntryColor).
+                            withColor:pseudoEntryColor).
 
         needsSpecialColoring ifTrue:[
             hasExtensions := itemsWithExtensions includes:cat.
@@ -1644,7 +1642,7 @@
             ] ifFalse:[
                 allName := nameListEntryForALL.
             ].
-            categoryList addFirst:(allName allItalic colorizeAllWith:pseudoEntryColor).
+            categoryList addFirst:(allName allItalic withColor:pseudoEntryColor).
             rawProtocolList addFirst:nameListEntryForALL.
         ].
     ].
@@ -1653,7 +1651,7 @@
         addPseudoEntryWithColor := [:s :n :clr | 
                                 n > 0 ifTrue:[
                                     categoryList 
-                                        add:((s bindWith:n) allItalic colorizeAllWith:clr).
+                                        add:((s bindWith:n) allItalic withColor:clr).
                                     rawProtocolList add:s.
                                 ].
                            ].
@@ -2185,7 +2183,7 @@
 source
     ^ (SmalltalkCodeGeneratorTool basicNew
         codeFor_shouldImplementFor:selector inClass:mclass) 
-            colorizeAllWith:Color red
+            withColor:Color red
 
     "Modified: / 31-01-2011 / 18:29:17 / cg"
 ! !
@@ -2193,7 +2191,7 @@
 !MethodCategoryList::MissingMethod methodsFor:'printing & storing'!
 
 printStringForBrowserWithSelector:selector inClass:aClass
-    ^ (selector,' (** missing required **)') colorizeAllWith:Color red
+    ^ (selector,' (** missing required **)') withColor:Color red
 ! !
 
 !MethodCategoryList::MissingMethod methodsFor:'queries'!
@@ -2234,13 +2232,13 @@
 
 source
     ^ (mclass compiledMethodAt:selector) source  
-            colorizeAllWith:Color grey
+            withColor:Color grey
 ! !
 
 !MethodCategoryList::MethodStubForTestResult methodsFor:'printing & storing'!
 
 printStringForBrowserWithSelector:selector inClass:aClass
-    ^ (selector,' (** from ',self mclass name,' **)') colorizeAllWith:Color gray
+    ^ (selector,' (** from ',self mclass name,' **)') withColor:Color gray
 ! !
 
 !MethodCategoryList class methodsFor:'documentation'!