comment/format in: #isVersionMethodSelector:
authorClaus Gittinger <cg@exept.de>
Thu, 29 Sep 2011 14:56:19 +0200
changeset 2530 331e4ee893f7
parent 2529 302c2c58caa7
child 2531 c08028e69bb4
comment/format in: #isVersionMethodSelector:
AbstractSourceCodeManager.st
--- a/AbstractSourceCodeManager.st	Thu Sep 29 14:56:07 2011 +0200
+++ b/AbstractSourceCodeManager.st	Thu Sep 29 14:56:19 2011 +0200
@@ -1401,10 +1401,10 @@
     selector isNil ifTrue: [^ false].
 
     ^ selector == self nameOfVersionMethodInClasses 
-        or:[selector startsWith: self prefixOfVersionMethodSelector]
+    or:[selector startsWith: self prefixOfVersionMethodSelector]
 
     "Modified (comment): / 09-07-2011 / 12:31:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 29-09-2011 / 14:56:02 / cg"
+    "Modified (format): / 29-09-2011 / 14:56:15 / cg"
 !
 
 nameOfVersionMethodForExtensions
@@ -1994,7 +1994,7 @@
 
     doubleColon := source indexOf: $: startingAt: startQuote + 2.
     "/There may be no double colon at all, if the version method
-    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.258 2011-09-29 12:56:07 cg Exp $'
+    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.259 2011-09-29 12:56:19 cg Exp $'
     (doubleColon == 0 or:[doubleColon > endQuote]) ifTrue:[
         doubleColon := endQuote - 1.
     ].
@@ -3183,11 +3183,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.258 2011-09-29 12:56:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.259 2011-09-29 12:56:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.258 2011-09-29 12:56:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.259 2011-09-29 12:56:19 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!