# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1315127622 -7200
# Node ID e4a8162bc7bc96deedb2f06129d083b9409ab3a0
# Parent  85297bc6cfa89db69ec5b8b580eb4553a4390ef6
added: #revisionOfManager:
changed: #revision

diff -r 85297bc6cfa8 -r e4a8162bc7bc Class.st
--- 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