--- a/HierarchicalItem.st	Fri Oct 12 21:38:07 2001 +0200
+++ b/HierarchicalItem.st	Mon Oct 15 09:21:10 2001 +0200
@@ -1405,6 +1405,19 @@
     ^ true
 !
 
+isRealChildOf:anItem
+    "returns true if the item is a child of anItem
+    "
+    |item|
+    item := self parent.
+
+    [item notNil] whileTrue:[
+        item == anItem ifTrue:[^ true].
+        item := item parent.
+    ].
+    ^ false
+!
+
 isRootItem
     "returns true if the item is the root item
     "
@@ -1691,5 +1704,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.35 2001-10-12 09:07:18 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.36 2001-10-15 07:21:10 martin Exp $'
 ! !