--- a/NameSpace.st Mon Aug 25 13:44:36 2003 +0200
+++ b/NameSpace.st Wed Aug 27 19:51:29 2003 +0200
@@ -139,7 +139,7 @@
Notice, that the nameSpace is created in the current one -
dont get confused; we recommend, not to nest them too much."
- |currentNameSpace newNamespace existing ok nameSym fullName|
+ |currentNameSpace newNameSpace existing ok nameSym fullName|
ok := aStringOrSymbol first isLetter.
ok ifTrue:[
@@ -149,13 +149,6 @@
ifTrue:[
ok := false.
]
-
-"/ 2 to:aStringOrSymbol size do:[:idx | |ch|
-"/ ch := aStringOrSymbol at:idx.
-"/ ok ifTrue:[
-"/ ok := ch isLetterOrDigit or:[ch == $_].
-"/ ]
-"/ ]
].
ok ifFalse:[
self error:'invalid namespace name:''' , aStringOrSymbol printString , ''' (must be a valid identifier)'.
@@ -164,8 +157,10 @@
nameSym := aStringOrSymbol asSymbol.
self == NameSpace ifTrue:[
- currentNameSpace := Class nameSpaceQuerySignal query.
- currentNameSpace isNil ifTrue:[currentNameSpace := Smalltalk].
+ "/ currentNameSpace := Class nameSpaceQuerySignal query.
+ currentNameSpace isNil ifTrue:[
+ currentNameSpace := Smalltalk
+ ].
fullName := nameSym
] ifFalse:[
currentNameSpace := self.
@@ -175,16 +170,17 @@
(existing := currentNameSpace at:nameSym) notNil ifTrue:[
^ existing
].
-
- newNamespace := self subclass:fullName
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'uncategorized namespace'.
+ newNameSpace := self
+ subclass:fullName
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'uncategorized namespace'
+ inEnvironment:Smalltalk.
"/ nameSpaces are not in any package
- newNamespace notNil ifTrue:[newNamespace setPackage:nil].
- ^ newNamespace
+ newNameSpace notNil ifTrue:[newNameSpace setPackage:nil].
+ ^ newNameSpace
"
NameSpace name:'foo'
@@ -521,5 +517,5 @@
!NameSpace class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.50 2003-06-20 07:24:24 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.51 2003-08-27 17:51:29 cg Exp $'
! !