--- a/SelInTree.st	Mon Feb 22 20:15:01 1999 +0100
+++ b/SelInTree.st	Mon Feb 22 22:04:42 1999 +0100
@@ -694,6 +694,14 @@
 
 !SelectionInTree methodsFor:'selection'!
 
+selectNode:aNode
+    |index|
+
+    (index := self indexOf:aNode) ~~ 0 ifTrue:[
+        self selectionIndex:index
+    ]
+!
+
 selectedNode
     "returns selected node or nil
     "
@@ -874,5 +882,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.23 1999-02-19 15:32:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.24 1999-02-22 21:04:42 cg Exp $'
 ! !

--- a/SelectionInTree.st	Mon Feb 22 20:15:01 1999 +0100
+++ b/SelectionInTree.st	Mon Feb 22 22:04:42 1999 +0100
@@ -694,6 +694,14 @@
 
 !SelectionInTree methodsFor:'selection'!
 
+selectNode:aNode
+    |index|
+
+    (index := self indexOf:aNode) ~~ 0 ifTrue:[
+        self selectionIndex:index
+    ]
+!
+
 selectedNode
     "returns selected node or nil
     "
@@ -874,5 +882,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.23 1999-02-19 15:32:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.24 1999-02-22 21:04:42 cg Exp $'
 ! !