ExternalStream.st
changeset 15918 d5fe9b9e87d3
parent 15896 21f50b8f83f6
child 15920 417d3121cd8a
--- a/ExternalStream.st	Tue Jan 28 21:45:42 2014 +0100
+++ b/ExternalStream.st	Tue Jan 28 23:21:02 2014 +0100
@@ -1322,6 +1322,7 @@
     }                                                   \
   }
 # else /* use STDIO */
+#error XXXX
 #  define __WRITEBYTES_OBJ__(ret, f, obj, obj_offs, cnt, isBuffered, handleType)            \
   {                                                     \
     int __ooffs = obj_offs;                             \
@@ -1802,11 +1803,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 +2544,12 @@
     self closeFile
 ! !
 
+!ExternalStream methodsFor:'initialization'!
+
+initialize
+    self text; buffered:true; eolMode:DefaultEOLMode; clearEOF.
+! !
+
 !ExternalStream methodsFor:'line reading/writing'!
 
 nextLine
@@ -5824,11 +5829,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.375 2014-01-15 10:39:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.376 2014-01-28 22:21:02 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.375 2014-01-15 10:39:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.376 2014-01-28 22:21:02 stefan Exp $'
 ! !