--- a/FileStream.st Thu Oct 01 00:32:19 2015 +0200
+++ b/FileStream.st Thu Oct 01 00:32:31 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -1292,7 +1290,7 @@
"Modified: 30.7.1997 / 16:43:50 / cg"
! !
-!FileStream methodsFor:'private'!
+!FileStream protectedMethodsFor:'private'!
closeFile
"low level close - may be redefined in subclasses.
@@ -1304,7 +1302,9 @@
]
"Created: / 13.8.1998 / 12:11:22 / cg"
-!
+! !
+
+!FileStream methodsFor:'private'!
createForReadWrite
"create/truncate the file for read/write.