add superClasses from extended classes in #searchForProjectsWhichProvideHeaderFiles
authorfm
Mon, 05 Oct 2009 13:03:20 +0200
changeset 12143 7efadbce6b32
parent 12142 1814d6072f33
child 12144 cc0d6bd13d68
add superClasses from extended classes in #searchForProjectsWhichProvideHeaderFiles
ProjectDefinition.st
--- a/ProjectDefinition.st	Mon Oct 05 12:53:14 2009 +0200
+++ b/ProjectDefinition.st	Mon Oct 05 13:03:20 2009 +0200
@@ -3860,7 +3860,9 @@
     self extensionMethodNames pairWiseDo:[:className :selector |
         |cls|
         ((cls := Smalltalk classNamed:className) notNil and:[cls isLoaded]) ifTrue:[
-            addPackage value:(cls package)
+            cls withAllSuperclassesDo:[:eachSuperClass | 
+                addPackage value:(eachSuperClass package)
+            ]
         ]
     ].
     ^ requiredPackages
@@ -4479,11 +4481,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.234 2009-10-01 13:44:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.235 2009-10-05 11:03:20 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.234 2009-10-01 13:44:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.235 2009-10-05 11:03:20 fm Exp $'
 ! !
 
 ProjectDefinition initialize!