--- a/HierarchicalListView.st	Wed Sep 11 14:54:54 2002 +0200
+++ b/HierarchicalListView.st	Wed Sep 11 19:37:50 2002 +0200
@@ -649,7 +649,7 @@
                 StopRedrawSignal raise
             ].
             iconRgtX > xL ifTrue:[
-                self displayForm:icon x:xIcon y:(yCtr - (icon height // 2))
+                icon displayOn:self x:xIcon y:(yCtr - (icon height // 2))
             ]
         ].
 
@@ -659,7 +659,7 @@
         (showIndc and:[item hasChildren]) ifTrue:[
             icon := item isExpanded ifTrue:[openIndicator] ifFalse:[closeIndicator].
             icon notNil ifTrue:[
-                self displayForm:icon x:xIndc y:(yCtr - offIndcY)
+                icon displayOn:self x:xIndc y:(yCtr - offIndcY)
             ]
         ].
         prevItem := item.
@@ -1217,5 +1217,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.43 2002-09-11 12:54:23 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.44 2002-09-11 17:37:50 penk Exp $'
 ! !