--- a/NameSpace.st Mon Feb 18 16:11:24 2002 +0100
+++ b/NameSpace.st Mon Feb 18 17:22:24 2002 +0100
@@ -444,19 +444,24 @@
allNamespaces
"return a list of all namespaces"
+ ^ self allNamespacesIn:Smalltalk
+!
+
+allNamespacesIn:anEnvironment
+ "return a list of all namespaces"
+
|set|
- set := IdentitySet with:Smalltalk.
- Smalltalk allClassesDo:[:aClass |
+ set := IdentitySet with:anEnvironment.
+ anEnvironment allClassesDo:[:aClass |
(aClass isNameSpace
and:[aClass ~~ NameSpace
- and:[aClass ~~ Smalltalk]]) ifTrue:[
+ and:[aClass ~~ anEnvironment
+ and:[aClass ~~ Smalltalk]]]) ifTrue:[
set add:aClass
]
].
^ set
-
- "Created: 2.1.1997 / 20:17:40 / cg"
!
isNameSpace
@@ -480,5 +485,5 @@
!NameSpace class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.41 2000-09-03 14:44:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.42 2002-02-18 16:22:24 cg Exp $'
! !