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