--- a/AbstractSourceCodeManager.st	Thu Dec 07 11:16:00 1995 +0100
+++ b/AbstractSourceCodeManager.st	Thu Dec 07 12:49:25 1995 +0100
@@ -435,6 +435,54 @@
     "Modified: 25.11.1995 / 11:56:16 / cg"
 !
 
+revisionLogOf:aClass fromRevision:rev1
+    "return info about the repository container and
+     (part of) the revisionlog as a collection of revision entries.
+     Return nil on failure.
+
+     The returned information is a structure (IdentityDictionary)
+     filled with:
+            #container          -> the RCS container file name 
+            #filename           -> the actual source file name
+            #newestRevision     -> the revisionString of the newest revision
+            #numberOfRevisions  -> the number of revisions in the container
+            #revisions          -> collection of per-revision info (see below)
+
+         for some classes, additional info is returned:
+
+            #renamed            -> true if the class has been renamed or copied
+                                   and the sourceInfo is from the previous one
+            #expectedFileName   -> the filename we would expect (i.e. for the new class)
+
+            rev1 / rev2 specify from which revisions a logEntry is wanted:
+              If rev1 is nil, the first revision is the initial revision
+              otherwise, the log starts with that revision.
+              If rev2 is nil, the last revision is the newest revision
+              otherwise, the log ends with that revision.
+              If both are nil, no logEntries are extracted (i.e. only the header).
+
+            per revision info consists of one record per revision:
+
+              #revision              -> the revision string
+              #author                -> who checked that revision into the repository
+              #date                  -> when was it checked in
+              #state                 -> the RCS state
+              #numberOfChangedLines  -> the number of changed line w.r.t the previous
+
+            revisions are ordered newest first 
+            (i.e. the last entry is for the initial revision; the first for the most recent one)
+        "
+
+    ^ self revisionLogOf:aClass fromRevision:rev1 toRevision:nil
+
+    "
+     SourceCodeManager revisionLogOf:Array fromRevision:'1.40'
+    "
+
+    "Created: 6.11.1995 / 18:56:00 / cg"
+    "Modified: 7.12.1995 / 11:51:15 / cg"
+!
+
 revisionLogOf:aClass fromRevision:rev1 toRevision:rev2
     "return info about the repository container and
      (part of) the revisionlog as a collection of revision entries.
@@ -607,4 +655,4 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.25 1995-12-07 10:15:52 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.26 1995-12-07 11:49:25 cg Exp $'! !