--- a/HierarchicalListView.st	Thu Dec 18 11:33:20 2008 +0100
+++ b/HierarchicalListView.st	Fri Dec 19 09:14:52 2008 +0100
@@ -892,7 +892,7 @@
     "draw the items between start to stop without clearing the background
     "
     |item prevParent icon showIndc showIcon showText
-     yTop yCtr yBot level xIndc xIcon xText xL xR height offIndcY icnWdt x|
+     yTop yCtr yBot level xIndc xIcon yIcon xText xL xR height offIndcY icnWdt x|
 
     xL := xLeft.
     xR := xL + w.
@@ -950,7 +950,8 @@
                         x := x - icnWdt.
                     ].
                 ].
-                icon displayOn:self x:x y:(yCtr - (icon height // 2))
+                yIcon := yCtr - (icon height // 2).
+                item displayIcon:icon atX:x y:yIcon on:self.
             ]
         ].
 
@@ -1732,5 +1733,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.112 2008-06-28 11:41:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.113 2008-12-19 08:14:52 ca Exp $'
 ! !