# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 911072776 -3600
# Node ID cd9fc4bfb27308afc8cddba925c3739319c14c36
# Parent  1fa0de353686ee0d27a073a5d2418b5d83e05600
checkin from browser

diff -r 1fa0de353686 -r cd9fc4bfb273 SelInTree.st
--- 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 $'
 ! !
diff -r 1fa0de353686 -r cd9fc4bfb273 SelectionInTree.st
--- a/SelectionInTree.st	Sun Nov 01 13:57:46 1998 +0100
+++ b/SelectionInTree.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/SelectionInTree.st,v 1.19 1998-10-31 12:03:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.20 1998-11-14 19:46:16 cg Exp $'
 ! !