# HG changeset patch
# User ca
# Date 1229674492 -3600
# Node ID 86a6fdbadecea4f28247460251af896816d2b34a
# Parent  440f0aa671ce9faa6a73449664e91b52ef31b8d9
changed #drawElementsFrom:to:x:y:w:

diff -r 440f0aa671ce -r 86a6fdbadece HierarchicalListView.st
--- 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 $'
 ! !