--- a/HierarchicalListView.st	Thu Mar 16 20:36:12 2006 +0100
+++ b/HierarchicalListView.st	Thu Mar 16 20:43:27 2006 +0100
@@ -1120,6 +1120,7 @@
     line notNil ifTrue:[
         item := self at:line ifAbsent:nil.
         item notNil ifTrue:[
+            "/ translate the coordinate relative to the items origin    
             x0 := self xVisibleOfIconAtLevel:(item level).
             x >= x0 ifTrue:[
                 x0 := self xVisibleOfTextAtLevel:(item level).
@@ -1643,5 +1644,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.102 2006-03-15 10:38:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.103 2006-03-16 19:43:27 cg Exp $'
 ! !