--- a/Class.st Thu Dec 19 23:09:28 1996 +0100
+++ b/Class.st Fri Dec 20 00:08:46 1996 +0100
@@ -16,7 +16,7 @@
CatchMethodRedefinitions MethodRedefinitionSignal
UpdateChangeFileQuerySignal TryLocalSourceFirst
ChangeFileAccessLock NameSpaceQuerySignal PackageQuerySignal
- CreateNameSpaceQuerySignal OldMethods'
+ UsedNameSpaceQuerySignal CreateNameSpaceQuerySignal OldMethods'
poolDictionaries:''
category:'Kernel-Classes'
!
@@ -162,7 +162,12 @@
NameSpaceQuerySignal := QuerySignal new mayProceed:true.
NameSpaceQuerySignal nameClass:self message:#nameSpaceQuerySignal.
NameSpaceQuerySignal notifierString:'asking for nameSpace'.
- NameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:Smalltalk currentNameSpace].
+ NameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:Smalltalk defaultNameSpace].
+
+ UsedNameSpaceQuerySignal := QuerySignal new mayProceed:true.
+ UsedNameSpaceQuerySignal nameClass:self message:#usedNameSpaceQuerySignal.
+ UsedNameSpaceQuerySignal notifierString:'asking for used nameSpaced'.
+ UsedNameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:nil].
CreateNameSpaceQuerySignal := QuerySignal new mayProceed:true.
CreateNameSpaceQuerySignal nameClass:self message:#createNameSpaceQuerySignal.
@@ -182,7 +187,7 @@
ChangeFileAccessLock := Semaphore forMutualExclusion.
]
- "Modified: 7.11.1996 / 12:55:32 / cg"
+ "Modified: 19.12.1996 / 23:49:57 / cg"
! !
!Class class methodsFor:'Signal constants'!
@@ -253,6 +258,15 @@
"
"Modified: 5.11.1996 / 20:08:44 / cg"
+!
+
+usedNameSpaceQuerySignal
+ "return the signal used as an upQuery for the used nameSpace.
+ Will be used when filing in code"
+
+ ^ UsedNameSpaceQuerySignal
+
+ "Created: 19.12.1996 / 23:57:27 / cg"
! !
!Class class methodsFor:'accessing - flags'!
@@ -4503,6 +4517,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.220 1996-12-13 13:15:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.221 1996-12-19 23:08:46 cg Exp $'
! !
Class initialize!