--- a/HierarchicalItem.st	Tue Aug 24 17:29:09 1999 +0200
+++ b/HierarchicalItem.st	Thu Aug 26 11:20:54 1999 +0200
@@ -369,6 +369,19 @@
     ^ aChildItem
 !
 
+add:aChild sortBlock:aBlock
+    "add a child sorted
+    "
+    (aBlock notNil and:[children size ~~ 0]) ifTrue:[
+        children keysAndValuesDo:[:index :child|
+            (aBlock value:aChild value:child) ifTrue:[
+                ^ self add:aChild beforeIndex:index
+            ]
+        ]
+    ].
+    ^ self add:aChild
+!
+
 addAll:aList
     "add children at the end
     "
@@ -1125,5 +1138,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.6 1999-08-24 14:02:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.7 1999-08-26 09:20:54 tm Exp $'
 ! !