--- a/Project.st Fri Mar 24 15:17:47 2000 +0100
+++ b/Project.st Fri Mar 24 17:43:57 2000 +0100
@@ -3349,7 +3349,7 @@
(true "aClass owningClass isNil"
and:[aClass isMeta not
and:[aClass package = packageName
- and:[aClass isNamespace not or:[aClass == Smalltalk]]]]) ifTrue:[
+ and:[aClass isNameSpace not or:[aClass == Smalltalk]]]]) ifTrue:[
classes add:aClass
]
].
@@ -3558,41 +3558,41 @@
|methods methodsInfo|
properties notNil ifTrue:[
- methodsInfo := properties at:#methodsInfo ifAbsent:nil.
- methodsInfo notNil ifTrue:[
- methods := methodsInfo collect:[:i | i className]
- ] ifFalse:[
- methods := properties at:#methods ifAbsent:nil
- ]
+ methodsInfo := properties at:#methodsInfo ifAbsent:nil.
+ methodsInfo notNil ifTrue:[
+ methods := methodsInfo collect:[:i | i className]
+ ] ifFalse:[
+ methods := properties at:#methods ifAbsent:nil
+ ]
].
methods isNil ifTrue:[
- methods := OrderedCollection new.
- Smalltalk allClassesDo:[:aClass |
- (true "aClass owningClass isNil"
- and:[aClass isMeta not
- and:[aClass package ~= packageName
- and:[aClass isNamespace not or:[aClass == Smalltalk]]]]) ifTrue:[
-
- aClass methodDictionary keysAndValuesDo:[:sel :mthd |
- mthd package = packageName ifTrue:[
- methods add:(MethodInfo new
- className:aClass name;
- methodName:sel;
- yourself)
- ].
- ].
- aClass class methodDictionary keysAndValuesDo:[:sel :mthd |
- mthd package = packageName ifTrue:[
- methods add:(MethodInfo new
- className:(aClass name , ' class');
- methodName:sel;
- yourself)
- ].
- ]
- ]
- ].
- methods isEmpty ifTrue:[^ #()].
+ methods := OrderedCollection new.
+ Smalltalk allClassesDo:[:aClass |
+ (true "aClass owningClass isNil"
+ and:[aClass isMeta not
+ and:[aClass package ~= packageName
+ and:[aClass isNameSpace not or:[aClass == Smalltalk]]]]) ifTrue:[
+
+ aClass methodDictionary keysAndValuesDo:[:sel :mthd |
+ mthd package = packageName ifTrue:[
+ methods add:(MethodInfo new
+ className:aClass name;
+ methodName:sel;
+ yourself)
+ ].
+ ].
+ aClass class methodDictionary keysAndValuesDo:[:sel :mthd |
+ mthd package = packageName ifTrue:[
+ methods add:(MethodInfo new
+ className:(aClass name , ' class');
+ methodName:sel;
+ yourself)
+ ].
+ ]
+ ]
+ ].
+ methods isEmpty ifTrue:[^ #()].
].
^ methods
@@ -3817,6 +3817,6 @@
!Project class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.152 2000-03-21 19:49:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.153 2000-03-24 16:43:57 cg Exp $'
! !
Project initialize!