--- a/SelectionInTree.st	Mon Aug 04 08:36:40 1997 +0200
+++ b/SelectionInTree.st	Tue Aug 05 08:34:47 1997 +0200
@@ -214,13 +214,19 @@
 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:[
         list add:root.
         root recomputeList:list
     ].
-    self changed:#list.
 ! !
 
 !SelectionInTree methodsFor:'selection'!
@@ -265,5 +271,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.1 1997-07-05 12:59:13 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.2 1997-08-05 06:34:47 ca Exp $'
 ! !