# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1363775855 -3600
# Node ID f36cda6765a9613de4eb27e9cb149b1cdc74988f
# Parent  0a82f2fcb6b3208ec44e77e1c88bb557b3b978bf
class: Tools::ClassCategoryList
changed: #listOfCategories

diff -r 0a82f2fcb6b3 -r f36cda6765a9 Tools_ClassCategoryList.st
--- a/Tools_ClassCategoryList.st	Tue Mar 19 20:23:55 2013 +0100
+++ b/Tools_ClassCategoryList.st	Wed Mar 20 11:37:35 2013 +0100
@@ -634,7 +634,10 @@
     |categories categoriesBag hideUnloadedClasses generator nameSpaceFilter packageFilter allName
      categoriesWithExtensions categoriesWithChangedCode categoriesWithRemoteChangedCode
      classesInChangeSet classesInRemoteChangeSet classesWithExtensions
-     numClassesInChangeSet numClasses numUnloaded numUndocumented numExtendedClasses pseudoEntryColor|
+     numClassesInChangeSet numClasses numUnloaded numUndocumented numExtendedClasses 
+     pseudoEntryColor showCounts|
+
+    showCounts := true.
 
     allName := self class nameListEntryForALL.
 
@@ -767,8 +770,10 @@
                     ]
                 ]
             ].
-            item := item , ((' (%1)' bindWith:(categoriesBag occurrencesOf:cat)) 
-                                colorizeAllWith:pseudoEntryColor).
+            showCounts ifTrue:[
+                item := item , ((' (%1)' bindWith:(categoriesBag occurrencesOf:cat)) 
+                                    colorizeAllWith:pseudoEntryColor).
+            ].
             isInChangeSet ifTrue:[
                 item := item , self class markForBeingInChangeList
             ].
@@ -971,10 +976,10 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.41 2013-03-13 22:36:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.42 2013-03-20 10:37:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.41 2013-03-13 22:36:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.42 2013-03-20 10:37:35 cg Exp $'
 ! !