variable renamed in:
#listOfMethodCategories
#makeGenerator
changed: #methodInfoFor:
--- a/Tools_MethodCategoryList.st Mon Oct 12 20:10:09 2009 +0200
+++ b/Tools_MethodCategoryList.st Mon Oct 12 20:10:35 2009 +0200
@@ -802,7 +802,7 @@
noCat static notStatic classSelectorPairsAlreadyDone
packages remainingClasses remainingCategories classesAlreadyDone noPackage|
- noPackage := Project noProjectID.
+ noPackage := PackageId noProjectID.
noCat := (self class nameListEntryForNILCategory).
static := (self class nameListEntryForStatic).
notStatic := (self class nameListEntryForNonStatic).
@@ -1161,7 +1161,7 @@
]
].
mPackage ~~ classPackage ifTrue:[
- mPackage ~= Project noProjectID ifTrue:[
+ mPackage ~= PackageId noProjectID ifTrue:[
itemsWithExtensions add:mCategory.
(packageFilter notNil
@@ -1329,9 +1329,11 @@
info isDocumentationMethod:( aMethod isDocumentationMethod).
info isLongMethod:( aMethod source asCollectionOfLines size > UserPreferences current numberOfLinesForLongMethod ).
aMethod package ~= mclass package ifTrue:[
- info isExtensionMethod:true.
- info isOverride:( aMethod package asPackageId projectDefinitionClass
- methodOverwrittenBy:aMethod ) notNil
+ aMethod package ~= #'__NoProject__' ifTrue:[
+ info isExtensionMethod:true.
+ info isOverride:( aMethod package asPackageId projectDefinitionClass
+ methodOverwrittenBy:aMethod ) notNil
+ ]
] ifFalse:[
info isExtensionMethod:false.
info isOverride:false.
@@ -1609,11 +1611,11 @@
!MethodCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.37 2009-10-12 16:58:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.38 2009-10-12 18:10:35 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.37 2009-10-12 16:58:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.38 2009-10-12 18:10:35 cg Exp $'
! !
MethodCategoryList initialize!