--- 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!