--- a/SelInTree.st Sun Nov 01 13:57:46 1998 +0100
+++ b/SelInTree.st Sat Nov 14 20:46:16 1998 +0100
@@ -89,14 +89,19 @@
root:aRoot
"set a new root
"
+ |tree|
+
root notNil ifTrue: [
- root tree: nil
+ tree := root tree.
+ root tree:nil.
+ ] ifFalse:[
+ tree := self
].
self stopRunningTasks.
(root := aRoot) notNil ifTrue:[
+ root tree:tree.
root parent:nil.
- root tree: self.
].
self listFromRoot.
self changed:#list.
@@ -825,5 +830,5 @@
!SelectionInTree class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.19 1998-10-31 12:03:29 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.20 1998-11-14 19:46:16 cg Exp $'
! !