extensions with utf8
authorClaus Gittinger <cg@exept.de>
Fri, 22 Mar 2013 14:30:43 +0100
changeset 3133 14d574b2f82e
parent 3132 23fd7d727582
child 3134 93b8f75424c5
extensions with utf8
SourceCodeManagerUtilitiesForContainerBasedManagers.st
--- a/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Fri Mar 22 14:30:42 2013 +0100
+++ b/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Fri Mar 22 14:30:43 2013 +0100
@@ -402,7 +402,7 @@
     "checkin a projects extensions into the source repository.
      If the argument, aLogInfoOrStringOrNil isNil, ask interactively for log-message."
 
-    |logMessage checkinInfo mgr pri module directory containerFileName methodSource|
+    |logMessage checkinInfo mgr pri module directory containerFileName extensionsSource|
 
     "/ the following is wrong - must ask the projectDefinition !!
     aPackageID asPackageId projectDefinitionClass notNil ifTrue:[
@@ -444,7 +444,12 @@
     Processor activeProcess 
         withPriority:pri-1 to:pri
         do:[
-            methodSource := self sourceCodeForExtensions:aCollectionOfMethods package:aPackageID forManager:mgr.
+            extensionsSource := self sourceCodeForExtensions:aCollectionOfMethods package:aPackageID forManager:mgr.
+            "Care for non-ASCII/non-ISO-8859 characters in extension methods"
+            extensionsSource isWideString ifTrue:[
+                extensionsSource := '"{ Encoding: utf8 }"' , Character cr asString , Character cr asString , extensionsSource.                
+                extensionsSource := extensionsSource utf8Encoded.
+            ].
 
             UserInformation handle:[:ex |
                 Transcript showCR:ex description.
@@ -453,7 +458,7 @@
                 Transcript showCR:('checking in ',containerFileName,' ...').
                 (mgr 
                     checkin:containerFileName
-                    text:methodSource
+                    text:extensionsSource
                     directory:directory 
                     module:module
                     logMessage:logMessage
@@ -705,9 +710,10 @@
 !SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.3 2012-10-30 14:34:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.4 2013-03-22 13:30:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.3 2012-10-30 14:34:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.4 2013-03-22 13:30:43 cg Exp $'
 ! !
+