--- a/ExternalStream.st Mon May 02 14:14:07 2016 +0200
+++ b/ExternalStream.st Mon May 02 15:11:58 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -2575,8 +2573,12 @@
position := 0.
binary := false.
buffered := true.
+ self initializeEOLMode.
+ hitEOF := false.
+!
+
+initializeEOLMode
eolMode := DefaultEOLMode.
- hitEOF := false.
! !
!ExternalStream methodsFor:'line reading/writing'!
@@ -6527,7 +6529,7 @@
].
"
- 'Bönnigheim' asUnicode16String errorPrintCR
+ 'Bönnigheim' asUnicode16String errorPrintCR
"
!
@@ -6712,7 +6714,7 @@
"
(FileStream newTemporary
nextPutUtf16:$B;
- nextPutUtf16:$Ä;
+ nextPutUtf16:$Ä;
nextPutUtf16:(Character codePoint:16r10CCCC);
reset;
binary;
@@ -6745,7 +6747,7 @@
"
(FileStream newTemporary
nextPutUtf16:$B MSB:true;
- nextPutUtf16:$Ä MSB:true;
+ nextPutUtf16:$Ä MSB:true;
nextPutUtf16:(Character codePoint:16r10CCCC) MSB:true;
reset;
binary;
@@ -6753,7 +6755,7 @@
(FileStream newTemporary
nextPutUtf16:$B MSB:false;
- nextPutUtf16:$Ä MSB:false;
+ nextPutUtf16:$Ä MSB:false;
nextPutUtf16:(Character codePoint:16r10CCCC) MSB:false;
reset;
binary;