removed via FileBrowser
authorps
Fri, 14 Jan 2000 11:50:24 +0100
changeset 1295 7a3c8ee20667
parent 1294 100042c9183e
child 1296 a2e403565be2
removed via FileBrowser
AbstractRevisionItem.st
--- a/AbstractRevisionItem.st	Fri Jan 14 11:49:28 2000 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,105 +0,0 @@
-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$'
-! !