Do not raise non-proceedable errors proceedable.
--- 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!