--- a/CVSSourceCodeManager.st Thu Sep 08 06:46:04 2016 +0200
+++ b/CVSSourceCodeManager.st Fri Sep 16 07:12:05 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
@@ -1519,7 +1517,7 @@
newRevision isNil ifTrue:[
(vsnString endsWith:'m') ifTrue:[
- "/ alread a modified class
+ "/ already a modified class
"/ ('already modified: ' , vsnString) printNL.
^ nil
].
@@ -1544,8 +1542,8 @@
"/ '2013/01/24 10:14:27'
"/ rightPart:
"/ 'Exp $'
- newDateAndTimePart := Timestamp now printStringFormat:'%(year)-%(month)-%(day) %H:%m:%s'.
- ^ leftPart , ' ' , newVsn , ' ' , newDateAndTimePart , ' ' , userName , ' ' , rightPart
+ newDateAndTimePart := Timestamp now printStringFormat:'%(year)-%(month)-%(day) %H:%m:%s'.
+ ^ leftPart , ' ' , newVsn , ' ' , newDateAndTimePart , ' ' , userName , ' ' , rightPart
!
updatedRevisionStringOf:aClass forRevision:newRevision with:originalVersionString
@@ -1570,7 +1568,7 @@
newRevision isNil ifTrue:[
(vsnString endsWith:'m') ifTrue:[
- "/ alread a modified class
+ "/ already a modified class
"/ ('already modified: ' , vsnString) printNL.
^ nil
].
@@ -4739,17 +4737,17 @@
"/ The repair code will be removed at some time in the future...
"/ temporary fix Felix' bad string translation:
- (aString startsWith:'§Header:') ifTrue:[
- (aString endsWith:'Exp §') ifTrue:[
+ (aString startsWith:'§Header:') ifTrue:[
+ (aString endsWith:'Exp §') ifTrue:[
fixedString := '$' , (aString copyFrom:3 to:(aString size - 2)) , '$'.
aClass isNil ifTrue:[
autoFixHolder value ifFalse:[
- Dialog information:'Attention: the CVS version string is corrupted (§-bug). Please fix it manually'.
+ Dialog information:'Attention: the CVS version string is corrupted (§-bug). Please fix it manually'.
]
] ifFalse:[
(autoFixHolder value
- or:[ Dialog confirm:('Attention: the CVS version string is corrupted in "%1" (§-bug). Fix it?' withCRs bindWith:aClass name) ]
+ or:[ Dialog confirm:('Attention: the CVS version string is corrupted in "%1" (§-bug). Fix it?' withCRs bindWith:aClass name) ]
) ifTrue:[
self updateVersionMethodOf:aClass for:fixedString.
].
@@ -4757,7 +4755,7 @@
].
].
- "/ temporary fix Jan's bad Umlaut-removal (which results in Felix's bad § being removed):
+ "/ temporary fix Jan's bad Umlaut-removal (which results in Felix's bad § being removed):
(aString startsWith:'Header: ') ifTrue:[
(aString endsWith:'Exp ') ifTrue:[
fixedString := '$' , aString , '$'.