AbstractRevisionItem.st
changeset 1294 100042c9183e
--- /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$'
+! !