--- a/SelInTree.st	Tue Apr 07 17:10:50 1998 +0200
+++ b/SelInTree.st	Tue Apr 07 17:12:15 1998 +0200
@@ -346,6 +346,7 @@
     showRoot := true.
     indicatorList := OrderedCollection new.
     accessLock    := Semaphore forMutualExclusion.
+    list          := OrderedCollection new:128.
     super initialize.
 
 ! !
@@ -355,13 +356,13 @@
 recomputeList
     "Travers the tree and build a new list."
 
-    list := OrderedCollection new.
+    list clearContents.
 
     root notNil ifTrue:[
         showRoot ifTrue:[   
             list add:root
         ].
-        root recomputeList:list
+        root recomputeList:list.
     ].
     self changed:#list.
 ! !
@@ -494,5 +495,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.10 1998-03-09 16:08:25 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.11 1998-04-07 15:12:15 ca Exp $'
 ! !

--- a/SelectionInTree.st	Tue Apr 07 17:10:50 1998 +0200
+++ b/SelectionInTree.st	Tue Apr 07 17:12:15 1998 +0200
@@ -346,6 +346,7 @@
     showRoot := true.
     indicatorList := OrderedCollection new.
     accessLock    := Semaphore forMutualExclusion.
+    list          := OrderedCollection new:128.
     super initialize.
 
 ! !
@@ -355,13 +356,13 @@
 recomputeList
     "Travers the tree and build a new list."
 
-    list := OrderedCollection new.
+    list clearContents.
 
     root notNil ifTrue:[
         showRoot ifTrue:[   
             list add:root
         ].
-        root recomputeList:list
+        root recomputeList:list.
     ].
     self changed:#list.
 ! !
@@ -494,5 +495,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.10 1998-03-09 16:08:25 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.11 1998-04-07 15:12:15 ca Exp $'
 ! !