--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ExpandableRevisionItem.st	Fri Jan 14 11:51:20 2000 +0100
@@ -0,0 +1,68 @@
+AbstractRevisionItem subclass:#ExpandableRevisionItem
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Browsers'
+!
+
+
+!ExpandableRevisionItem methodsFor:'accessing'!
+
+icon
+
+    ^#loadedRevision
+
+
+
+
+
+
+
+!
+
+revisionString
+    "return the value of the instance variable 'revision' (automatically generated)"
+
+    ^ 'more revisions ...'
+
+
+
+
+
+! !
+
+!ExpandableRevisionItem methodsFor:'actions'!
+
+recursiveToggleExpand
+
+    self parent addAllRevisionsBefore:self
+
+
+!
+
+toggleExpand
+
+    self parent addNewRevisionsBefore:self
+
+
+! !
+
+!ExpandableRevisionItem methodsFor:'testing'!
+
+isExpandableRevisionItem
+"
+the receiver is a expandable revision item. Used for testing tree items.
+
+<return: Boolean>
+"
+    ^true
+
+
+
+! !
+
+!ExpandableRevisionItem class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libtool/ExpandableRevisionItem.st,v 1.1 2000-01-14 10:51:20 ps Exp $'
+! !