--- a/Class.st Tue Nov 05 19:59:45 1996 +0100
+++ b/Class.st Tue Nov 05 20:34:44 1996 +0100
@@ -15,7 +15,7 @@
classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal
CatchMethodRedefinitions MethodRedefinitionSignal
UpdateChangeFileQuerySignal TryLocalSourceFirst
- ChangeFileAccessLock NameSpaceQuerySignal'
+ ChangeFileAccessLock NameSpaceQuerySignal PackageQuerySignal'
poolDictionaries:''
category:'Kernel-Classes'
!
@@ -145,14 +145,24 @@
UpdateChangeFileQuerySignal handlerBlock:[:ex | ex proceedWith:UpdatingChanges].
NameSpaceQuerySignal := QuerySignal new mayProceed:true.
- NameSpaceQuerySignal nameClass:self message:#updateChangeFileQuerySignal.
+ NameSpaceQuerySignal nameClass:self message:#nameSpaceQuerySignal.
NameSpaceQuerySignal notifierString:'asking for nameSpace'.
NameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:Smalltalk currentNameSpace].
+ PackageQuerySignal := QuerySignal new mayProceed:true.
+ PackageQuerySignal nameClass:self message:#packageQuerySignal.
+ PackageQuerySignal notifierString:'asking for package'.
+ PackageQuerySignal handlerBlock:[:ex | ex proceedWith:(Project isNil
+ ifTrue:[
+ 'no package'
+ ] ifFalse:[
+ Project currentPackageName
+ ])].
+
ChangeFileAccessLock := Semaphore forMutualExclusion.
]
- "Modified: 14.10.1996 / 21:00:34 / cg"
+ "Modified: 5.11.1996 / 20:08:12 / cg"
! !
!Class class methodsFor:'Signal constants'!
@@ -181,10 +191,24 @@
^ NameSpaceQuerySignal
"
- Class nameSpaceQuerySignal raise
+ Transcript showCR:Class nameSpaceQuerySignal raise
"
- "Modified: 14.10.1996 / 21:01:30 / cg"
+ "Modified: 5.11.1996 / 20:08:38 / cg"
+!
+
+packageQuerySignal
+ "return the signal used as an upQuery for the current packages name.
+ Will be used when filing in code"
+
+ ^ PackageQuerySignal
+
+ "
+ Transcript showCR:Class packageQuerySignal raise
+ "
+
+ "Created: 5.11.1996 / 20:07:22 / cg"
+ "Modified: 5.11.1996 / 20:08:35 / cg"
!
updateChangeFileQuerySignal
@@ -195,10 +219,10 @@
^ UpdateChangeFileQuerySignal
"
- Class updateChangeFileQuerySignal raise
+ Transcript showCR:Class updateChangeFileQuerySignal raise
"
- "Modified: 14.10.1996 / 21:01:43 / cg"
+ "Modified: 5.11.1996 / 20:08:44 / cg"
! !
!Class class methodsFor:'accessing - flags'!
@@ -4260,6 +4284,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.202 1996-11-04 22:51:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.203 1996-11-05 19:34:44 cg Exp $'
! !
Class initialize!