--- a/SelectionInTreeView.st	Fri May 29 13:01:26 1998 +0200
+++ b/SelectionInTreeView.st	Fri May 29 13:02:03 1998 +0200
@@ -881,6 +881,27 @@
           height:fontHeight
 !
 
+redrawElement:anIndex
+
+    |vln x0 xT y|
+
+    shown ifTrue:[
+        (     highlightMode ~~ #label
+          or:[(vln := self listLineToVisibleLine:anIndex) isNil]
+        ) ifTrue:[
+            super redrawElement:anIndex
+        ] ifFalse:[
+            y := self yOfVisibleLine:vln.
+            xT := self xOfStringLevel:((listOfNodes at:anIndex) level).
+            x0 := xT - textInset.
+            self paint:bgColor.
+            self fillRectangleX:x0 y:y width:(width - x0) height:fontHeight.
+            self redrawLabelAt:xT y:y index:anIndex
+        ]
+    ]
+
+!
+
 redrawLabelAt:x y:yTop index:anIndex
     |isSelected y0 x0 x1 maxX w label i|
 
@@ -2063,5 +2084,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.60 1998-05-28 11:17:22 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.61 1998-05-29 11:02:03 ca Exp $'
 ! !