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)
--- a/Tools_MethodCategoryList.st Tue Apr 02 11:33:29 2013 +0200
+++ b/Tools_MethodCategoryList.st Tue Apr 02 11:34:03 2013 +0200
@@ -901,8 +901,8 @@
].
showChanged := packages notNil and:[packages includes:(self class nameListEntryForChanged)].
- remainingClasses := leafClasses copy asIdentitySet.
- remainingCategories := protocols copy asSet.
+ remainingClasses := leafClasses asNewIdentitySet.
+ remainingCategories := protocols asNewSet.
classesAlreadyDone := IdentitySet new.
classSelectorPairsAlreadyDone := Set new.
@@ -2080,11 +2080,11 @@
!MethodCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.92 2013-03-16 09:49:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.93 2013-04-02 09:34:03 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.92 2013-03-16 09:49:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.93 2013-04-02 09:34:03 stefan Exp $'
! !