# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 829927848 -7200
# Node ID c6da419116bff36119291ba56aeb3cfc97ed3dd1
# Parent  a1a7d6329d9fdc89ce89e6b492152e5458aa90d2
checkin from browser

diff -r a1a7d6329d9f -r c6da419116bf AbstrSCMgr.st
--- a/AbstrSCMgr.st	Thu Apr 18 20:03:28 1996 +0200
+++ b/AbstrSCMgr.st	Fri Apr 19 17:30:48 1996 +0200
@@ -854,6 +854,28 @@
     "Modified: 25.11.1995 / 11:56:38 / cg"
 !
 
+revisionsOf:aClass
+    "return a collection of revisions (as strings) found in the repository.
+     The most recent (newest) revision will be the first in the list.
+     Return nil on failure."
+
+    |log revisions|
+
+    log := self revisionLogOf:aClass.
+    log isNil ifTrue:[^ nil].
+    revisions := log at:#revisions ifAbsent:nil.
+    revisions isNil ifTrue:[^ nil].
+    ^ revisions collect:[:rev | rev at:#revision].
+
+    "
+     SourceCodeManager revisionsOf:Array       
+     SourceCodeManager newestRevisionOf:Array 
+    "
+
+    "Modified: 10.4.1996 / 23:14:24 / cg"
+    "Created: 19.4.1996 / 17:24:34 / cg"
+!
+
 writeHistoryLogSince:timeGoal filterSTSources:filter to:aStream
     self writeHistoryLogSince:timeGoal filterSTSources:filter filterUser:nil to:aStream
 
@@ -943,6 +965,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.52 1996-04-10 21:47:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.53 1996-04-19 15:30:48 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
diff -r a1a7d6329d9f -r c6da419116bf AbstractSourceCodeManager.st
--- a/AbstractSourceCodeManager.st	Thu Apr 18 20:03:28 1996 +0200
+++ b/AbstractSourceCodeManager.st	Fri Apr 19 17:30:48 1996 +0200
@@ -854,6 +854,28 @@
     "Modified: 25.11.1995 / 11:56:38 / cg"
 !
 
+revisionsOf:aClass
+    "return a collection of revisions (as strings) found in the repository.
+     The most recent (newest) revision will be the first in the list.
+     Return nil on failure."
+
+    |log revisions|
+
+    log := self revisionLogOf:aClass.
+    log isNil ifTrue:[^ nil].
+    revisions := log at:#revisions ifAbsent:nil.
+    revisions isNil ifTrue:[^ nil].
+    ^ revisions collect:[:rev | rev at:#revision].
+
+    "
+     SourceCodeManager revisionsOf:Array       
+     SourceCodeManager newestRevisionOf:Array 
+    "
+
+    "Modified: 10.4.1996 / 23:14:24 / cg"
+    "Created: 19.4.1996 / 17:24:34 / cg"
+!
+
 writeHistoryLogSince:timeGoal filterSTSources:filter to:aStream
     self writeHistoryLogSince:timeGoal filterSTSources:filter filterUser:nil to:aStream
 
@@ -943,6 +965,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.52 1996-04-10 21:47:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.53 1996-04-19 15:30:48 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!