PositionableStream.st
changeset 4059 75f3acfd7ac9
parent 3990 be7844e1e603
child 4118 c43e3a30b8b4
--- 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!