--- a/ClassItemRoot.st Fri Jan 14 15:12:46 2000 +0100
+++ b/ClassItemRoot.st Fri Jan 14 16:05:17 2000 +0100
@@ -6,8 +6,22 @@
!
+!ClassItemRoot methodsFor:'initialization'!
+
+initialize
+ super initialize.
+ isExpanded := true.
+! !
+
+!ClassItemRoot methodsFor:'queries'!
+
+canCollapse
+ ^ false
+
+! !
+
!ClassItemRoot class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ClassItemRoot.st,v 1.1 2000-01-14 14:08:06 ps Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ClassItemRoot.st,v 1.2 2000-01-14 15:05:17 ps Exp $'
! !
--- a/ClassRevisionTree.st Fri Jan 14 15:12:46 2000 +0100
+++ b/ClassRevisionTree.st Fri Jan 14 16:05:17 2000 +0100
@@ -266,14 +266,7 @@
super postBuildWith: aBuilder.
listView := self builder componentAt:#HierarchicalItemListView.
selectionHolder notNil
- ifTrue:[listView model:selectionHolder]
-!
-
-postOpenWith: aBuilder
-
-
- super postOpenWith: aBuilder.
- self itemList expand.
+ ifTrue:[listView model:selectionHolder].
!
release
@@ -330,7 +323,7 @@
theClassItem myClass:theClass.
theClassItem].
root addAll: theClassItemColl.
- ].
+ ].
self listModel root:root.
!
@@ -438,5 +431,5 @@
!ClassRevisionTree class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ClassRevisionTree.st,v 1.3 2000-01-14 10:51:09 ps Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ClassRevisionTree.st,v 1.4 2000-01-14 15:04:56 ps Exp $'
! !