--- a/Tools_MethodCategoryList.st	Thu Oct 29 11:40:12 2009 +0100
+++ b/Tools_MethodCategoryList.st	Thu Oct 29 18:29:14 2009 +0100
@@ -779,6 +779,8 @@
 !
 
 doDropContext:aDropContext
+    "handle dropping of a method as a category change"
+
     |cat methods|
 
     methods := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
@@ -1057,7 +1059,9 @@
      emphasizedPlus emphasisForRef emphasisForMod
      numAll numObsolete numSuper numUncommented numDocumentation numLong numOverride
      numRedefine numExtension numMissingRequired numSubclassResponsibility showPseudoProtocols
-     addPseudoEntry|
+     addPseudoEntry countAll|
+
+    countAll := true.
 
     generator := inGeneratorHolder value.
     generator isNil ifTrue:[ ^ #() ].
@@ -1290,15 +1294,21 @@
 
     categoryList notEmpty ifTrue:[
         noAllItem value ~~ true ifTrue:[
-            "/ categoryList addFirst:((self class  nameListEntryForALLWithCount bindWith:numAll) allItalic colorizeAllWith:Color grey).
-            categoryList addFirst:(nameListEntryForALL allItalic colorizeAllWith:Color grey).
+            countAll ifTrue:[
+                categoryList addFirst:((self class  nameListEntryForALLWithCount bindWith:numAll) allItalic colorizeAllWith:Color grey).
+            ] ifFalse:[
+                categoryList addFirst:(nameListEntryForALL allItalic colorizeAllWith:Color grey).
+            ].
             rawProtocolList addFirst:nameListEntryForALL.
         ].
     ].
     showPseudoProtocols value ifTrue:[
         addPseudoEntry := [:s :n | 
                                 n > 0 ifTrue:[
-                                    categoryList add:((s bindWith:n) allItalic colorizeAllWith:Color grey).
+                                    categoryList 
+                                        add:((s bindWith:n) 
+                                                allItalic 
+                                                    colorizeAllWith:Color grey).
                                     rawProtocolList add:s.
                                 ].
                            ].
@@ -1737,11 +1747,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.49 2009-10-29 10:29:32 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.50 2009-10-29 17:29:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.49 2009-10-29 10:29:32 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.50 2009-10-29 17:29:14 cg Exp $'
 ! !
 
 MethodCategoryList initialize!