--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/AbstractRevisionItem.st Fri Jan 14 11:49:28 2000 +0100
@@ -0,0 +1,105 @@
+AbstractVersionDiffBrowserItem subclass:#AbstractRevisionItem
+ instanceVariableNames:'revision'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Browsers'
+!
+
+
+!AbstractRevisionItem class methodsFor:'instance creation'!
+
+newForRevision:aRevision
+
+ |theRevision|
+
+ theRevision := self new.
+ theRevision revision:aRevision.
+ ^theRevision
+! !
+
+!AbstractRevisionItem methodsFor:'accessing'!
+
+myClass
+
+ ^self parent myClass
+!
+
+revision
+ "return the value of the instance variable 'revision' (automatically generated)"
+
+ ^ revision!
+
+revision:something
+ "set the value of the instance variable 'revision' (automatically generated)"
+
+ revision := something.!
+
+revisionString
+ "return the value of the instance variable 'revision' (automatically generated)"
+
+ self subclassResponsibility
+
+! !
+
+!AbstractRevisionItem methodsFor:'protocol'!
+
+icon
+"
+define concrete icons for revision items in subclasses
+
+<return: self>
+"
+ self subclassResponsibility
+!
+
+label
+"
+label is the revision string
+
+<return: String>
+"
+
+ ^self revisionString
+
+
+! !
+
+!AbstractRevisionItem methodsFor:'testing'!
+
+hasSourceStream
+"
+has the receiver a source stream? Used for testing tree items.
+
+<return: Boolean>
+"
+ ^false
+
+!
+
+isLoadedRevision
+"
+do the receiver represents the actual revision of a class.
+
+<return: Boolean>
+"
+ ^false
+
+
+
+!
+
+isRevisionItem
+"
+the receiver is a revision item. Used for testing tree items.
+
+<return: Boolean>
+"
+ ^true
+
+! !
+
+!AbstractRevisionItem class methodsFor:'documentation'!
+
+version
+ ^ '$Header$'
+! !