variable renamed in:
authorClaus Gittinger <cg@exept.de>
Mon, 12 Oct 2009 20:10:35 +0200
changeset 8969 225fe47fe23a
parent 8968 2d6a60835c99
child 8970 7b17f7901516
variable renamed in: #listOfMethodCategories #makeGenerator changed: #methodInfoFor:
Tools_MethodCategoryList.st
--- 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!