--- a/TreeItem.st	Wed Jun 03 16:33:55 1998 +0200
+++ b/TreeItem.st	Fri Jun 05 18:37:49 1998 +0200
@@ -395,6 +395,12 @@
     ]
 !
 
+addFirst: something
+    "add a child at the beginning
+    "
+    self add:something beforeIndex:1
+!
+
 remove:something 
     "remove a child or collection of children
     "
@@ -902,5 +908,5 @@
 !TreeItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.23 1998-04-14 11:33:56 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.24 1998-06-05 16:37:49 tz Exp $'
 ! !