# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1094049923 -7200
# Node ID 68cd955451966f5660c48259d80ba6cb6d462d15
# Parent  9d392516725c0606a476759fc84f433f63218e8f
Allow to proceed with any stream from an #openError handler

diff -r 9d392516725c -r 68cd95545196 FileStream.st
--- a/FileStream.st	Wed Sep 01 16:39:12 2004 +0200
+++ b/FileStream.st	Wed Sep 01 16:45:23 2004 +0200
@@ -271,13 +271,7 @@
     |newStream|
 
     newStream := self new pathName:filename.
-    newStream openForAppending isNil ifTrue:[^nil].
-"
-    this is not a good idea; I might like to read the written stuff ...
-
-    newStream readLimit:(newStream size).
-"
-    ^ newStream
+    ^ newStream openForAppending.
 
     "
      FileStream appendingOldFileNamed:'adasdasasd'
@@ -291,13 +285,7 @@
 
     |newStream|
     newStream := self new pathName:filename in:aDirectory.
-    newStream openForAppending isNil ifTrue:[^nil].
-"
-    this is not a good idea; I might like to read the written stuff ...
-
-    newStream readLimit:(newStream size).
-"
-    ^ newStream
+    ^ newStream openForAppending.
 !
 
 fileNamed:filename
@@ -331,8 +319,7 @@
 
     |newStream|
     newStream := self new pathName:filename.
-    newStream createForWriting isNil ifTrue:[^nil].
-    ^ newStream
+    ^ newStream createForWriting.
 !
 
 newFileForWritingNamed:filename in:aDirectory
@@ -343,8 +330,7 @@
 
     |newStream|
     newStream := self new pathName:filename in:aDirectory.
-    newStream createForWriting isNil ifTrue:[^nil].
-    ^ newStream
+    ^ newStream createForWriting.
 !
 
 newFileNamed:filename
@@ -354,8 +340,7 @@
 
     |newStream|
     newStream := self new pathName:filename.
-    newStream createForReadWrite isNil ifTrue:[^nil].
-    ^ newStream
+    ^ newStream createForReadWrite.
 
     "Modified: / 28.10.1997 / 14:28:08 / cg"
 !
@@ -368,8 +353,7 @@
 
     |newStream|
     newStream := self new pathName:filename in:aDirectory.
-    newStream createForReadWrite isNil ifTrue:[^nil].
-    ^ newStream
+    ^ newStream createForReadWrite.
 !
 
 oldFileNamed:filename
@@ -384,13 +368,7 @@
 
     newStream := self new pathName:filename.
     newStream readwrite.
-    newStream openForReadWrite isNil ifTrue:[^nil].
-"
-    this is not a good idea; someone else might be appending ...
-
-    newStream readLimit:(newStream size).
-"
-    ^ newStream
+    ^ newStream openForReadWrite.
 
     "
      FileStream oldFileNamed:'/dAsGiBtEsNiChT'
@@ -405,13 +383,7 @@
 
     |newStream|
     newStream := self new pathName:filename in:aDirectory.
-    newStream openForReadWrite isNil ifTrue:[^nil].
-"
-    this is not a good idea; someone else might be appending ...
-
-    newStream readLimit:(newStream size).
-"
-    ^ newStream
+    ^ newStream openForReadWrite.
 
     "
      FileStream oldFileNamed:'dAsGiBtEsNiChT' in:'/'
@@ -428,13 +400,7 @@
 "/    (OperatingSystem isReadable:filename) ifFalse:[^ self new openError].
 
     newStream := self new pathName:filename.
-    newStream openForReading isNil ifTrue:[^nil].
-"
-    this is not a good idea; someone else might be appending ...
-
-    newStream readLimit:(newStream size).
-"
-    ^ newStream
+    ^ newStream openForReading.
 
     "
      FileStream readonlyFileNamed:'dAsGiBtEsNiChT' 
@@ -448,13 +414,7 @@
 
     |newStream|
     newStream := self new pathName:filename in:aDirectory.
-    newStream openForReading isNil ifTrue:[^nil].
-"
-    this is not a good idea; someone else might be appending ...
-
-    newStream readLimit:(newStream size).
-"
-    ^ newStream
+    ^ newStream openForReading.
 
     "
      FileStream readonlyFileNamed:'dAsGiBtEsNiChT' in:'/'
@@ -1459,7 +1419,7 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.110 2004-08-12 15:48:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.111 2004-09-01 14:45:23 stefan Exp $'
 ! !
 
 FileStream initialize!