*** empty log message ***
authorps
Fri, 14 Jan 2000 16:05:17 +0100
changeset 2544 04ebb73c452f
parent 2543 3e41de02014b
child 2545 a99be3f7193e
*** empty log message ***
ClassItemRoot.st
ClassRevisionTree.st
--- 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 $'
 ! !