--- a/SelectionInTree.st	Wed Oct 29 08:42:29 1997 +0100
+++ b/SelectionInTree.st	Wed Oct 29 09:25:29 1997 +0100
@@ -253,13 +253,6 @@
 recomputeList
     "Travers the tree and build a new list."
 
-    self updateList.
-    self changed:#list.
-!
-
-updateList
-    "Travers the tree and build a new list.; no notification raised"
-
     list := OrderedCollection new.
 
     root notNil ifTrue:[
@@ -268,6 +261,7 @@
         ].
         root recomputeList:list
     ].
+    self changed:#list.
 ! !
 
 !SelectionInTree methodsFor:'selection'!
@@ -299,7 +293,7 @@
     self setSelectionIndex:indexesOrNil.
 
     oldSel = selection ifFalse:[
-        self changed:#selection
+        self changed:#selectionIndex
     ]
 !
 
@@ -328,5 +322,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.6 1997-09-04 12:17:32 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.7 1997-10-29 08:25:29 ca Exp $'
 ! !