--- a/HierarchicalItem.st	Wed Nov 15 16:05:36 2000 +0100
+++ b/HierarchicalItem.st	Thu Nov 16 14:18:12 2000 +0100
@@ -103,6 +103,15 @@
     "
     parent := aParent
 
+!
+
+rootItem
+    "returns the root item
+    "
+    parent isHierarchicalItem ifTrue:[
+        ^ parent rootItem
+    ].
+    ^ self
 ! !
 
 !HierarchicalItem methodsFor:'accessing-children'!
@@ -876,7 +885,8 @@
         children size ~~ 0 ifTrue:[
             children do:[:c| c withAllDo:aOneArgBlock ]
         ]
-    ].! !
+    ].
+! !
 
 !HierarchicalItem methodsFor:'enumerating parents'!
 
@@ -1324,7 +1334,8 @@
 isRootItem
     "returns true if the item is the root item
     "
-    ^ parent isHierarchicalItem not!
+    ^ parent isHierarchicalItem not
+!
 
 isSelectable
     "returns true if the item is selectable otherwise false
@@ -1443,7 +1454,8 @@
     "
     (aOneArgBlock value:self) ifTrue:[^ self].
 
-    ^ self recursiveDetect:aOneArgBlock! !
+    ^ self recursiveDetect:aOneArgBlock
+! !
 
 !HierarchicalItem::Example class methodsFor:'instance creation'!
 
@@ -1585,5 +1597,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.26 2000-11-08 07:49:30 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.27 2000-11-16 13:18:12 tm Exp $'
 ! !