--- a/SourceRevisionItem.st	Fri Jan 14 11:51:20 2000 +0100
+++ b/SourceRevisionItem.st	Fri Jan 14 11:51:42 2000 +0100
@@ -10,9 +10,9 @@
 
 sourceStream
 "
-<return: Stream>
-"
-    ^self parent myClass currentSourceStream
+<return: ReadStream>
+"                     
+    ^self parent myClass currentSourceStream readStream
 ! !
 
 !SourceRevisionItem methodsFor:'protocol'!
@@ -28,12 +28,48 @@
 
     ^ revision isNil
         ifTrue: ['no revision']
-        ifFalse:['current']
+        ifFalse:['current (based on:',(revision at:#revision),')']
+
+! !
+
+!SourceRevisionItem methodsFor:'testing'!
+
+basedOnActualRevision
+"
+returns if the changes of the class are based on the actual revision of the class
+
+<return: Boolean>
+"
+     revision ifNil:[^true].
+     ^parent newestRevision = (revision at:#revision)
+!
+
+hasSourceStream
+"
+has the receiver a source stream? Used for testing tree items.
+
+<return: Boolean>
+"
+    ^true
+
+
+!
+
+isLoadedRevision
+"
+the receiver is always the actual revision of a class, hence isloadedRevision
+must be true.
+
+<return: Boolean>
+"
+
+    ^true
+
 
 ! !
 
 !SourceRevisionItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SourceRevisionItem.st,v 1.1 1999-12-29 15:26:34 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SourceRevisionItem.st,v 1.2 2000-01-14 10:51:35 ps Exp $'
 ! !