--- a/Project.st Fri Apr 23 19:24:50 1999 +0200
+++ b/Project.st Fri Apr 23 19:50:58 1999 +0200
@@ -1615,7 +1615,15 @@
methods := IdentitySet new.
Smalltalk allBehaviorsDo:[:cls |
- (classes isNil or:[(classes includes:cls) not]) ifTrue:[
+ |classToCheck|
+
+ classToCheck := cls.
+ cls isPrivate ifTrue:[
+ classToCheck := cls topOwningClass
+ ].
+ (classes isNil
+ or:[((classes includes:classToCheck)
+ or:[classes includes:classToCheck name]) not]) ifTrue:[
cls methodDictionary do:[:m |
m package = packageName ifTrue:[
methods add:m
@@ -1769,6 +1777,6 @@
!Project class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.79 1999-04-22 16:52:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.80 1999-04-23 17:50:58 cg Exp $'
! !
Project initialize!