Refactoring:
authorStefan Vogel <sv@exept.de>
Tue, 02 Apr 2013 11:33:11 +0200
changeset 12610 73fc860bcfbe
parent 12609 81fe44010ad3
child 12611 f988e7719525
Refactoring: replace asSet copy by asNewSet (same for IdentitySet) replace (xxx collect:[]) asSet by (xxx collect:[] as:Set) replace (xxx select:[]) asSet by (xxx select:[] as:Set)
Tools_ClassCategoryList.st
--- a/Tools_ClassCategoryList.st	Tue Apr 02 11:32:41 2013 +0200
+++ b/Tools_ClassCategoryList.st	Tue Apr 02 11:33:11 2013 +0200
@@ -820,7 +820,7 @@
         rawCategoryList add:self class nameListEntryForExtendedClasses.
         categories add:((self class nameListEntryForExtendedClassesWithCount bindWith:numExtendedClasses) allItalic colorizeAllWith:pseudoEntryColor).
     ].
-    numClassesInChangeSet := (ChangeSet current changedClasses collect:[:c | c theNonMetaclass]) asSet size.
+    numClassesInChangeSet := (ChangeSet current changedClasses collect:[:c | c theNonMetaclass] as:Set) size.
     numClassesInChangeSet > 0 ifTrue:[
         rawCategoryList addFirst:self class nameListEntryForChanged.
         categories addFirst:((self class nameListEntryForChangedWithCount bindWith:numClassesInChangeSet) allItalic colorizeAllWith:pseudoEntryColor).
@@ -1003,10 +1003,10 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.44 2013-03-25 22:07:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.45 2013-04-02 09:33:11 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.44 2013-03-25 22:07:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.45 2013-04-02 09:33:11 stefan Exp $'
 ! !