--- 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 $'
! !