# HG changeset patch # User Claus Gittinger # Date 1328263417 -3600 # Node ID df2127ae4cb8a950f00ec9e81c2d35e8b5f7c9e0 # Parent b03631e990dc01e150f01fbe500e7e732ab088ca changed: #writeBackChanges encoding chunk diff -r b03631e990dc -r df2127ae4cb8 ChangesBrowser.st --- a/ChangesBrowser.st Thu Feb 02 21:37:09 2012 +0100 +++ b/ChangesBrowser.st Fri Feb 03 11:03:37 2012 +0100 @@ -2756,7 +2756,8 @@ ^ false ]. - outStream nextPutLine:'"{ Encoding: utf8 }" !!'. + outStream nextPutLine:'''---- encoding: utf8 ----''!!'. +"/ outStream nextPutLine:'"{ Encoding: utf8 }" !!'. outStream := EncodedStream stream:outStream encoder:(CharacterEncoder encoderForUTF8). encoding := CharacterEncoder guessEncodingOfStream:inStream. @@ -2837,8 +2838,8 @@ ^ true - "Modified: / 2.12.1996 / 22:29:15 / stefan" - "Modified: / 21.4.1998 / 17:50:11 / cg" + "Modified: / 02-12-1996 / 22:29:15 / stefan" + "Modified: / 03-02-2012 / 11:01:20 / cg" ! ! !ChangesBrowser methodsFor:'private-user interaction ops'! @@ -5836,6 +5837,9 @@ timeStampInfo := (chunkText copyFrom:16 to:(chunkText size - 6)) withoutSpaces. ^ self. ]. + (chunkText asLowercase startsWith:'''---- encoding: ') ifTrue:[ + ^ self. + ]. changeChunks add:chunkText. changeClassNames add:nil. @@ -5866,6 +5870,8 @@ changeHeaderLines add:headerLine ] ] + + "Modified: / 03-02-2012 / 11:02:36 / cg" ! processMethodChunkIfNone:emptyBlock @@ -6341,9 +6347,9 @@ !ChangesBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.416 2012-01-03 14:34:57 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.417 2012-02-03 10:03:37 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.416 2012-01-03 14:34:57 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.417 2012-02-03 10:03:37 cg Exp $' ! !