--- a/SelectionInTree.st	Tue Sep 02 14:22:05 1997 +0200
+++ b/SelectionInTree.st	Tue Sep 02 14:23:08 1997 +0200
@@ -68,10 +68,10 @@
     ^ root
 !
 
-root:aRootNode
-    "set a new root and recompute list
+root:aRoot
+    "set a new root
     "
-    root := aRootNode.
+    root := aRoot.
     self recomputeList.
 
 ! !
@@ -115,6 +115,12 @@
     invalidate == true ifTrue:[self recomputeList]
 !
 
+expand
+    "expand the root
+    "
+    self expand:root
+!
+
 expand:something 
     "expand a node or collection of nodes
     "
@@ -320,5 +326,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.4 1997-08-15 09:26:23 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.5 1997-09-02 12:23:08 ca Exp $'
 ! !