Fix in listOfMethodCategories for methods with nil category (non-smalltalk methods)
authorvrany
Wed, 31 Aug 2011 23:15:22 +0200
changeset 10659 4157482b811c
parent 10658 3c26332add1f
child 10660 4b97f38f9a0f
Fix in listOfMethodCategories for methods with nil category (non-smalltalk methods)
Tools_MethodCategoryList.st
--- a/Tools_MethodCategoryList.st	Wed Aug 31 19:00:57 2011 +0200
+++ b/Tools_MethodCategoryList.st	Wed Aug 31 23:15:22 2011 +0200
@@ -1289,7 +1289,7 @@
                 ]
             ].
             mPackage ~~ classPackage ifTrue:[
-                mPackage ~= PackageId noProjectID ifTrue:[
+                (mCategory notNil and:[mPackage ~= PackageId noProjectID]) ifTrue:[
                     itemsWithExtensions add:mCategory.    
 
                     (packageFilter notNil 
@@ -1492,6 +1492,7 @@
 
     "Created: / 05-02-2000 / 13:42:11 / cg"
     "Modified: / 18-08-2011 / 10:04:40 / cg"
+    "Modified: / 31-08-2011 / 16:26:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 makeDependent
@@ -1933,11 +1934,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.72 2011-08-25 10:19:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.73 2011-08-31 21:15:22 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.72 2011-08-25 10:19:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.73 2011-08-31 21:15:22 vrany Exp $'
 ! !
 
 MethodCategoryList initialize!