SourceCodeManagerUtilitiesForContainerBasedManagers.st
branchjv
changeset 3127 23fd4ad500d5
parent 3125 08d6603c4fe9
child 3128 87750af738dc
--- a/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Fri Mar 15 14:06:47 2013 +0000
+++ b/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Fri Mar 22 10:31:12 2013 +0000
@@ -445,6 +445,10 @@
         withPriority:pri-1 to:pri
         do:[
             methodSource := self sourceCodeForExtensions:aCollectionOfMethods package:aPackageID forManager:mgr.
+            "Care for non-ASCII/non-ISO-8859 characters in extension methods"
+            methodSource isWideString ifTrue:[
+                methodSource := '"{ Encoding: utf8 }"' , Character cr asString , Character cr asString , methodSource.                
+            ].
 
             UserInformation handle:[:ex |
                 Transcript showCR:ex description.
@@ -453,7 +457,7 @@
                 Transcript showCR:('checking in ',containerFileName,' ...').
                 (mgr 
                     checkin:containerFileName
-                    text:methodSource
+                    text:methodSource utf8Encoded
                     directory:directory 
                     module:module
                     logMessage:logMessage
@@ -482,6 +486,7 @@
     ^ true
 
     "Modified: / 25-07-2012 / 18:38:40 / cg"
+    "Modified: / 22-03-2013 / 10:24:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 checkinPackage:packageToCheckIn classes:doClasses extensions:doExtensions buildSupport:doBuild askForMethodsInOtherPackages:askForMethodsInOtherPackages