--- a/SelInTree.st	Mon Feb 15 21:16:36 1999 +0100
+++ b/SelInTree.st	Thu Feb 18 20:38:48 1999 +0100
@@ -325,7 +325,8 @@
 !
 
 add:something beforeIndex:anIndex below:aParent
-    "add a node or collection of nodes to parent before an index
+    "add a node or collection of nodes to aParents children
+     before anIndex (which is a child-index)
     "
     |children start index size pList|
 
@@ -602,7 +603,7 @@
 !
 
 listFromRoot
-    "Travers the tree and build a new list;
+    "Traverse the tree and build a new list;
      no change notification is raised
     "
     list clearContents.
@@ -832,5 +833,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.21 1999-02-11 17:43:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelInTree.st,v 1.22 1999-02-18 19:38:48 cg Exp $'
 ! !

--- a/SelectionInTree.st	Mon Feb 15 21:16:36 1999 +0100
+++ b/SelectionInTree.st	Thu Feb 18 20:38:48 1999 +0100
@@ -325,7 +325,8 @@
 !
 
 add:something beforeIndex:anIndex below:aParent
-    "add a node or collection of nodes to parent before an index
+    "add a node or collection of nodes to aParents children
+     before anIndex (which is a child-index)
     "
     |children start index size pList|
 
@@ -602,7 +603,7 @@
 !
 
 listFromRoot
-    "Travers the tree and build a new list;
+    "Traverse the tree and build a new list;
      no change notification is raised
     "
     list clearContents.
@@ -832,5 +833,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.21 1999-02-11 17:43:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.22 1999-02-18 19:38:48 cg Exp $'
 ! !