#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Fri, 14 Oct 2016 14:46:10 +0200
changeset 4115 da8c2dc0d1b7
parent 4113 c8014ba8731a
child 4116 4c926bc549f7
child 4117 f5366a92d4ac
#BUGFIX by cg class: ChangeSet changed: #fileOutAs: missing encoding info at the beginning.
ChangeSet.st
--- a/ChangeSet.st	Fri Oct 14 03:42:18 2016 +0200
+++ b/ChangeSet.st	Fri Oct 14 14:46:10 2016 +0200
@@ -790,7 +790,6 @@
     "Created: / 27.10.1997 / 13:52:54 / cg"
 ! !
 
-
 !ChangeSet class methodsFor:'Compatibility-VW'!
 
 component: component definition: anObject change: changeSymbol
@@ -1392,11 +1391,18 @@
 !
 
 fileOutAs: aStringOrFilename
-
     | stream |
+
     stream := aStringOrFilename asFilename writeStream.
-    [ self fileOutOn: stream ]
-	ensure: [stream close]
+
+    stream nextPutLine:'''---- encoding: utf8 ----''!!'.
+    stream := EncodedStream stream:stream encoder:(CharacterEncoder encoderForUTF8).
+
+    [ 
+        self fileOutOn: stream 
+    ] ensure: [
+        stream close
+    ]
 
     "Created: / 05-12-2009 / 12:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !