Do not raise non-proceedable errors proceedable.
authorStefan Vogel <sv@exept.de>
Tue, 24 Aug 1999 17:02:00 +0200
changeset 4627 b8b606196835
parent 4626 d41f6e8cbf79
child 4628 8b8b95e1e078
Do not raise non-proceedable errors proceedable.
ExtStream.st
ExternalStream.st
--- a/ExtStream.st	Tue Aug 24 14:37:04 1999 +0200
+++ b/ExtStream.st	Tue Aug 24 17:02:00 1999 +0200
@@ -1528,9 +1528,9 @@
     "report an error, that the stream is in binary mode"
 
     ^ self invalidModeSignal
-	raiseRequestWith:self
-	     errorString:(self class name , ' is in binary mode')
-		      "/ in:thisContext sender
+               raiseWith:self
+             errorString:(self class name , ' is in binary mode')
+                      "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:43 / cg"
 !
@@ -1541,9 +1541,9 @@
     "report an error, that the stream is not in binary mode"
 
     ^ self invalidModeSignal
-	raiseRequestWith:self
-	     errorString:(self class name , ' is not in binary mode')
-		      "/ in:thisContext sender
+               raiseWith:self
+             errorString:(self class name , ' is not in binary mode')
+                      "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:40 / cg"
 !
@@ -1567,9 +1567,9 @@
     "report an error, that the stream has not been opened"
 
     ^ StreamNotOpenSignal
-	raiseRequestWith:self
-	     errorString:(self class name , ' not open')
-		      "/ in:thisContext sender
+               raiseWith:self
+             errorString:(self class name , ' not open')
+                      "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:33 / cg"
 !
@@ -1593,9 +1593,9 @@
     "report an error, that some unsupported operation was attempted"
 
     ^ self invalidOperationSignal
-	raiseRequestWith:self
-	errorString:'unsupported operation'
-		 "/ in:thisContext sender
+        raiseWith:self
+        errorString:'unsupported operation'
+                 "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:24 / cg"
 !
@@ -1606,9 +1606,9 @@
     "report an error, that the stream is a writeOnly stream"
 
     ^ self invalidReadSignal
-	raiseRequestWith:self
-	     errorString:(self class name , ' is writeonly')
-		      "/ in:thisContext sender
+               raiseWith:self
+             errorString:(self class name , ' is writeonly')
+                      "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:20 / cg"
 !
@@ -1621,9 +1621,9 @@
      which is no longer available and has been mounted soft)"
 
     ^ StreamIOErrorSignal
-	raiseRequestWith:self
-	     errorString:('I/O error: ' , self lastErrorString)
-		      "/ in:thisContext sender
+               raiseWith:self
+             errorString:('I/O error: ' , self lastErrorString)
+                      "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:16 / cg"
 !
@@ -4870,6 +4870,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.199 1999-08-17 18:22:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.200 1999-08-24 15:02:00 stefan Exp $'
 ! !
 ExternalStream initialize!
--- a/ExternalStream.st	Tue Aug 24 14:37:04 1999 +0200
+++ b/ExternalStream.st	Tue Aug 24 17:02:00 1999 +0200
@@ -1528,9 +1528,9 @@
     "report an error, that the stream is in binary mode"
 
     ^ self invalidModeSignal
-	raiseRequestWith:self
-	     errorString:(self class name , ' is in binary mode')
-		      "/ in:thisContext sender
+               raiseWith:self
+             errorString:(self class name , ' is in binary mode')
+                      "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:43 / cg"
 !
@@ -1541,9 +1541,9 @@
     "report an error, that the stream is not in binary mode"
 
     ^ self invalidModeSignal
-	raiseRequestWith:self
-	     errorString:(self class name , ' is not in binary mode')
-		      "/ in:thisContext sender
+               raiseWith:self
+             errorString:(self class name , ' is not in binary mode')
+                      "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:40 / cg"
 !
@@ -1567,9 +1567,9 @@
     "report an error, that the stream has not been opened"
 
     ^ StreamNotOpenSignal
-	raiseRequestWith:self
-	     errorString:(self class name , ' not open')
-		      "/ in:thisContext sender
+               raiseWith:self
+             errorString:(self class name , ' not open')
+                      "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:33 / cg"
 !
@@ -1593,9 +1593,9 @@
     "report an error, that some unsupported operation was attempted"
 
     ^ self invalidOperationSignal
-	raiseRequestWith:self
-	errorString:'unsupported operation'
-		 "/ in:thisContext sender
+        raiseWith:self
+        errorString:'unsupported operation'
+                 "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:24 / cg"
 !
@@ -1606,9 +1606,9 @@
     "report an error, that the stream is a writeOnly stream"
 
     ^ self invalidReadSignal
-	raiseRequestWith:self
-	     errorString:(self class name , ' is writeonly')
-		      "/ in:thisContext sender
+               raiseWith:self
+             errorString:(self class name , ' is writeonly')
+                      "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:20 / cg"
 !
@@ -1621,9 +1621,9 @@
      which is no longer available and has been mounted soft)"
 
     ^ StreamIOErrorSignal
-	raiseRequestWith:self
-	     errorString:('I/O error: ' , self lastErrorString)
-		      "/ in:thisContext sender
+               raiseWith:self
+             errorString:('I/O error: ' , self lastErrorString)
+                      "/ in:thisContext sender
 
     "Modified: / 8.5.1999 / 20:12:16 / cg"
 !
@@ -4870,6 +4870,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.199 1999-08-17 18:22:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.200 1999-08-24 15:02:00 stefan Exp $'
 ! !
 ExternalStream initialize!