--- a/CVSSourceCodeManager.st Thu Jan 22 09:43:24 2015 +0100
+++ b/CVSSourceCodeManager.st Sun Jan 25 01:26:29 2015 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libbasic3' }"
+"{ NameSpace: Smalltalk }"
+
AbstractSourceCodeManager subclass:#CVSSourceCodeManager
instanceVariableNames:''
classVariableNames:'CVSRoot RemoteCVS CVSModuleRoots CMD_checkout CVSTempDir
@@ -1492,7 +1494,7 @@
rightPart := rightPart copyFrom:idx+1.
"/ originalVersionString:
- "/ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.495 2014-12-14 17:02:26 cg Exp $'
+ "/ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.496 2015-01-25 00:26:29 cg Exp $'
"/ leftPart:
"/ '$Header: /cvs/stx/stx/goodies/refactoryBrowser/lint/RBLiteralArrayContainsCommaRule.st,v'
"/ dateAndTimePart:
@@ -2711,9 +2713,13 @@
"/ new code:
cls revisionString notEmptyOrNil ifTrue:[
newString := self updatedRevisionStringOf:cls forRevision:newRevision andUser:OperatingSystem getLoginName with:cls revisionString.
- self updateVersionMethodOf:cls for:newString.
- cls revision ~= newRevision ifTrue:[
- 'CVSSourceCodeManager [error]: failed to update revisionString' errorPrintCR
+ newString isNil ifTrue:[
+ 'CVSSourceCodeManager [error]: failed to update revisionString (class checked in, but no revision method)' errorPrintCR
+ ] ifFalse:[
+ self updateVersionMethodOf:cls for:newString.
+ cls revision ~= newRevision ifTrue:[
+ 'CVSSourceCodeManager [error]: failed to update revisionString' errorPrintCR
+ ].
].
self activityNotification:'Done.'.
] ifFalse:[
@@ -5545,11 +5551,11 @@
!CVSSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.495 2014-12-14 17:02:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.496 2015-01-25 00:26:29 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.495 2014-12-14 17:02:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.496 2015-01-25 00:26:29 cg Exp $'
! !