--- a/FileStream.st Tue Apr 09 16:46:54 2002 +0200
+++ b/FileStream.st Tue Apr 09 16:49:34 2002 +0200
@@ -483,11 +483,11 @@
write:filename mode:modeSymbol
"return a writable FileStream for the file named filename, aString.
The modeSymbol controls how the file is opened; currently supported are:
- #append
+ #append
"
modeSymbol == #append ifTrue:[
- ^ self appendingOldFileNamed:filename
+ ^ self appendingOldFileNamed:filename
].
self halt:'unsupported mode'.
^ nil
@@ -502,11 +502,11 @@
s := self newFileNamed:filename.
s notNil ifTrue:[
- textModeBoolean ifTrue:[
- s text
- ] ifFalse:[
- s binary
- ]
+ textModeBoolean ifTrue:[
+ s text
+ ] ifFalse:[
+ s binary
+ ]
].
^ s
! !
@@ -1129,7 +1129,7 @@
__INST(canPosition) = true;
#endif /* poor VMS */
- if (@global(ExternalStream:FileOpenTrace) == true) {
+ if (@global(FileOpenTrace) == true) {
fprintf(stderr, "fopen %s [FileStream] -> %x\n", __stringVal(pathName), f);
}
@@ -1350,6 +1350,6 @@
!FileStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.85 2002-03-25 18:40:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.86 2002-04-09 14:49:34 stefan Exp $'
! !
FileStream initialize!