--- a/SelHier.st	Tue Jul 01 15:21:03 1997 +0200
+++ b/SelHier.st	Tue Jul 01 15:21:36 1997 +0200
@@ -74,6 +74,13 @@
     "Modified: 15.4.1997 / 16:27:50 / cg"
 !
 
+addChildAndSubChildren:aHierarchyNode below:existingHierarchyNode after:aChild
+    "Add a new HierarchyNode to the tree."
+
+     existingHierarchyNode addChildAndSubChildren:aHierarchyNode after:aChild. 
+     self setNewList.
+!
+
 getHierarchyNodeForContents: something
      "return the hierarchyNode whose contents is something"
 
@@ -330,5 +337,5 @@
 !SelectionInHierarchy class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelHier.st,v 1.6 1997-04-15 16:07:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelHier.st,v 1.7 1997-07-01 13:21:36 ca Exp $'
 ! !

--- a/SelectionInHierarchy.st	Tue Jul 01 15:21:03 1997 +0200
+++ b/SelectionInHierarchy.st	Tue Jul 01 15:21:36 1997 +0200
@@ -74,6 +74,13 @@
     "Modified: 15.4.1997 / 16:27:50 / cg"
 !
 
+addChildAndSubChildren:aHierarchyNode below:existingHierarchyNode after:aChild
+    "Add a new HierarchyNode to the tree."
+
+     existingHierarchyNode addChildAndSubChildren:aHierarchyNode after:aChild. 
+     self setNewList.
+!
+
 getHierarchyNodeForContents: something
      "return the hierarchyNode whose contents is something"
 
@@ -330,5 +337,5 @@
 !SelectionInHierarchy class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchy.st,v 1.6 1997-04-15 16:07:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchy.st,v 1.7 1997-07-01 13:21:36 ca Exp $'
 ! !