--- 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 $'
! !
+