class: Tools::ClassCategoryList
changed: #listOfCategories
fixed changed-classes count (included meta+non meta)
--- a/Tools_ClassCategoryList.st Wed Mar 13 17:04:54 2013 +0100
+++ b/Tools_ClassCategoryList.st Wed Mar 13 23:36:14 2013 +0100
@@ -788,7 +788,7 @@
rawCategoryList add:self class nameListEntryForExtendedClasses.
categories add:((self class nameListEntryForExtendedClassesWithCount bindWith:numExtendedClasses) allItalic colorizeAllWith:pseudoEntryColor).
].
- numClassesInChangeSet := ChangeSet current changedClasses size.
+ numClassesInChangeSet := (ChangeSet current changedClasses collect:[:c | c theNonMetaclass]) asSet size.
numClassesInChangeSet > 0 ifTrue:[
rawCategoryList addFirst:self class nameListEntryForChanged.
categories addFirst:((self class nameListEntryForChangedWithCount bindWith:numClassesInChangeSet) allItalic colorizeAllWith:pseudoEntryColor).
@@ -971,9 +971,10 @@
!ClassCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.40 2012-11-07 14:19:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.41 2013-03-13 22:36:14 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.40 2012-11-07 14:19:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.41 2013-03-13 22:36:14 cg Exp $'
! !
+