#OTHER by mawalch
authormawalch
Wed, 14 Sep 2016 11:49:52 +0200
changeset 4094 c0637cbac519
parent 4092 45539104dce9
child 4095 b8c0359bb0c2
child 4096 5535543c5db8
#OTHER by mawalch Spelling fixes.
CVSSourceCodeManager.st
--- a/CVSSourceCodeManager.st	Wed Sep 07 11:08:43 2016 +0200
+++ b/CVSSourceCodeManager.st	Wed Sep 14 11:49:52 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
               All Rights Reserved
@@ -1510,7 +1508,7 @@
 
     newRevision isNil ifTrue:[
         (vsnString endsWith:'m') ifTrue:[
-             "/ alread a modified class
+             "/ already a modified class
 "/            ('already modified: ' , vsnString) printNL.
             ^ nil
         ].
@@ -1535,8 +1533,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
@@ -1561,7 +1559,7 @@
 
     newRevision isNil ifTrue:[
         (vsnString endsWith:'m') ifTrue:[
-             "/ alread a modified class
+             "/ already a modified class
 "/            ('already modified: ' , vsnString) printNL.
             ^ nil
         ].
@@ -4730,17 +4728,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.
                         ].
@@ -4748,7 +4746,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 , '$'.