--- a/HierarchicalItem.st	Tue Aug 24 15:28:35 2010 +0200
+++ b/HierarchicalItem.st	Mon Sep 20 09:44:08 2010 +0200
@@ -601,6 +601,15 @@
     ^ aList
 !
 
+removeAllIdentical:aList
+    "remove all children in the collection"
+
+    self removeAll:aList.
+    ^ aList
+
+    "Created: / 20-09-2010 / 09:43:06 / sr"
+!
+
 removeFromIndex:startIndex
     "remove the children from startIndex up to end of children"
 
@@ -1947,9 +1956,9 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.97 2010-07-09 07:53:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.98 2010-09-20 07:44:08 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.97 2010-07-09 07:53:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.98 2010-09-20 07:44:08 sr Exp $'
 ! !