--- a/PositionableStream.st Fri Mar 19 08:22:50 1999 +0100
+++ b/PositionableStream.st Fri Mar 19 08:24:07 1999 +0100
@@ -479,22 +479,22 @@
usedNameSpaceQuerySignal := Class usedNameSpaceQuerySignal.
(someone respondsTo:#packageToInstall) ifFalse:[
- pkg := packageQuerySignal raise.
+ pkg := packageQuerySignal query.
] ifTrue:[
pkg := someone packageToInstall
].
(someone respondsTo:#currentNameSpace) ifFalse:[
- spc := nameSpaceQuerySignal raise.
+ spc := nameSpaceQuerySignal query.
] ifTrue:[
spc := someone currentNameSpace
].
(someone respondsTo:#usedNameSpaces) ifFalse:[
- spaces := usedNameSpaceQuerySignal raise.
+ spaces := usedNameSpaceQuerySignal query.
] ifTrue:[
spaces := someone usedNameSpaces
].
(someone respondsTo:#defaultApplication) ifFalse:[
- defaultApplication := defaultApplicationQuerySignal raise.
+ defaultApplication := defaultApplicationQuerySignal query.
] ifTrue:[
defaultApplication := someone defaultApplication
].
@@ -619,6 +619,7 @@
^ lastValue
"Modified: / 3.2.1999 / 11:30:10 / cg"
+ "Modified: / 18.3.1999 / 18:26:55 / stefan"
! !
!PositionableStream methodsFor:'positioning'!
@@ -864,6 +865,6 @@
!PositionableStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.71 1999-02-17 20:08:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.72 1999-03-19 07:24:07 stefan Exp $'
! !
PositionableStream initialize!