--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/VersionRevisionItem.st	Wed Dec 29 16:29:08 1999 +0100
@@ -0,0 +1,45 @@
+AbstractRevisionItem subclass:#VersionRevisionItem
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Browsers'
+!
+
+
+!VersionRevisionItem methodsFor:'accessing'!
+
+revisionString
+    "return the value of the instance variable 'revision' (automatically generated)"
+
+    ^ revision at:#revision
+
+
+
+!
+
+sourceStream
+"
+<return: Stream>
+"
+    |theClass|
+
+    theClass := self parent myClass.
+    ^theClass sourceCodeManager getSourceStreamFor:theClass revision:self revisionString
+! !
+
+!VersionRevisionItem methodsFor:'protocol'!
+
+icon
+
+    ^((self parent myClass revision = self revisionString) and:[self parent isMyClassChanged not])
+        ifTrue: [#loadedRevision]
+        ifFalse:[#notLoadedRevision].
+
+
+! !
+
+!VersionRevisionItem class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libtool/VersionRevisionItem.st,v 1.1 1999-12-29 15:29:08 ps Exp $'
+! !