#BUGFIX by cg
class: ChangeSet
changed: #fileOutAs:
missing encoding info at the beginning.
--- 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>"
!