--- a/Class.st Sun Sep 04 09:34:07 2011 +0200
+++ b/Class.st Sun Sep 04 11:13:42 2011 +0200
@@ -4624,13 +4624,7 @@
To check if a source corresponds to a compiled binary, compare this
ID with the one returned by #binaryRevision."
- |info|
-
- info := self revisionInfo.
- info notNil ifTrue:[
- ^ info revision
- ].
- ^ nil "/ ^ self binaryRevision
+ ^ self revisionOfManager:self sourceCodeManager
"
Object revision
@@ -4638,7 +4632,7 @@
"Created: / 11-11-1995 / 14:27:20 / cg"
"Modified: / 26-03-1997 / 00:14:00 / stefan"
- "Modified (comment): / 01-07-2011 / 10:57:16 / cg"
+ "Modified: / 04-09-2011 / 11:03:59 / cg"
!
revisionDateString
@@ -4732,6 +4726,32 @@
"Created: / 19-04-2011 / 13:41:13 / cg"
!
+revisionOfManager:aSourceCodemanagerOrNil
+ "return the revision-ID of the class which corresponds to the
+ scm-version-id of the source to which this class is equivalent.
+ Initially, this is the same as #binaryRevision; however, once changes have
+ been checked into a source repository, the binary continues to remain based upon
+ the old revision, while logically, the class has the new (checked-in) revision.
+ To check if a source corresponds to a compiled binary, compare this
+ ID with the one returned by #binaryRevision."
+
+ |info|
+
+ info := self revisionInfoOfManager:aSourceCodemanagerOrNil.
+ info notNil ifTrue:[
+ ^ info revision
+ ].
+ ^ nil "/ ^ self binaryRevision
+
+ "
+ Object revision
+ "
+
+ "Modified: / 26-03-1997 / 00:14:00 / stefan"
+ "Modified (comment): / 01-07-2011 / 10:57:16 / cg"
+ "Created: / 04-09-2011 / 11:03:34 / cg"
+!
+
revisionString
"{ Pragma: +optSpace }"
@@ -5315,11 +5335,11 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.588 2011-07-18 07:20:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.589 2011-09-04 09:13:42 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.588 2011-07-18 07:20:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.589 2011-09-04 09:13:42 cg Exp $'
!
version_SVN