--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/SourceRevisionItem.st Wed Dec 29 16:26:34 1999 +0100
@@ -0,0 +1,39 @@
+AbstractRevisionItem subclass:#SourceRevisionItem
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Browsers'
+!
+
+
+!SourceRevisionItem methodsFor:'accessing'!
+
+sourceStream
+"
+<return: Stream>
+"
+ ^self parent myClass currentSourceStream
+! !
+
+!SourceRevisionItem methodsFor:'protocol'!
+
+icon
+
+ ^#loadedRevision
+
+!
+
+revisionString
+ "return the value of the instance variable 'revision' (automatically generated)"
+
+ ^ revision isNil
+ ifTrue: ['no revision']
+ ifFalse:['current']
+
+! !
+
+!SourceRevisionItem class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libtool/SourceRevisionItem.st,v 1.1 1999-12-29 15:26:34 ps Exp $'
+! !