--- a/HierarchicalListView.st	Mon Sep 20 18:40:34 1999 +0200
+++ b/HierarchicalListView.st	Mon Sep 20 19:23:36 1999 +0200
@@ -618,22 +618,6 @@
     self mask:nil.
 
 
-!
-
-redrawLabelFromItem:anItem atY:y h:h
-    "called to redraw a label caused by a selection change
-    "
-    |w "{ Class:SmallInteger }"
-     x "{ Class:SmallInteger }"
-    |
-    x := (self xOfStringLevel:(anItem level)) - (textStartLeft // 2).
-    x := x max:margin.
-
-    (w := width - x) > 0 ifTrue:[
-        self redrawX:x y:y width:w height:h
-    ]
-
-
 ! !
 
 !HierarchicalListView methodsFor:'event handling'!
@@ -964,5 +948,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.9 1999-09-17 15:55:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.10 1999-09-20 17:23:36 cg Exp $'
 ! !