--- 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 $'
! !