@global stuff for classvars
authorStefan Vogel <sv@exept.de>
Tue, 09 Apr 2002 16:49:34 +0200
changeset 6488 b1b2b2af7606
parent 6487 78c18e4cb6ff
child 6489 20ff7b3f3f26
@global stuff for classvars
FileStream.st
--- 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!