ExternalStream.st
branchjv
changeset 18117 eb433f2c42b2
parent 18112 0d7ac9096619
parent 15921 9941c0e5132a
child 18120 e3a375d5f6a8
--- a/ExternalStream.st	Fri Jan 31 02:04:30 2014 +0000
+++ b/ExternalStream.st	Sun Feb 02 14:16:24 2014 +0000
@@ -1366,7 +1366,7 @@
                 }                                       \
                 break;                                  \
             }                                           \
-            __offs += (ret);                            \
+            __offs += (ret); break;                     \
         }                                               \
     }                                                   \
     if (__offs > 0)                                     \
@@ -1802,11 +1802,9 @@
 !
 
 new
-    |newStream|
-
-    newStream := self basicNew.
-    newStream text; buffered:true; eolMode:DefaultEOLMode; clearEOF.
-    ^ newStream
+    "re-enable new - disabled in Stream superclass"
+
+    ^ self basicNew initialize.
 ! !
 
 !ExternalStream class methodsFor:'Signal constants'!
@@ -2545,6 +2543,16 @@
     self closeFile
 ! !
 
+!ExternalStream methodsFor:'initialization'!
+
+initialize
+    position := 0.
+    binary := false.
+    buffered := true.
+    eolMode := DefaultEOLMode.
+    hitEOF := false.
+! !
+
 !ExternalStream methodsFor:'line reading/writing'!
 
 nextLine
@@ -5824,11 +5832,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.374 2013-12-04 14:24:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.378 2014-01-29 13:35:20 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.374 2013-12-04 14:24:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.378 2014-01-29 13:35:20 stefan Exp $'
 ! !