--- a/SelectionInTreeView.st	Mon May 11 08:43:56 2009 +0200
+++ b/SelectionInTreeView.st	Mon May 11 10:50:56 2009 +0200
@@ -844,12 +844,14 @@
      startLvX "{ Class:SmallInteger }"
      limitLvI "{ Class:SmallInteger }"
      limitLvX "{ Class:SmallInteger }"
+     xIcon
     |
 
     yBot     := y0.
     yCtr     := yBot - (fontHeight // 2).
     widthLvl := imageInset + imageWidth.
-    offsHLnX := imageWidth // 2 + (self xOfFigureLevel:-1).
+    offsHLnX := (imageWidth // 2) + (self xOfFigureLevel:-1).
+    xIcon := imageWidth // 2.
 
     parent   := 4711.                           "/ to force a recompute
     prevNode := 4711.                           "/ to force a recomputation of the level
@@ -898,7 +900,7 @@
         ].
 
         showHLine ifTrue:[
-            self displayLineFromX:begHLnX y:yCtr toX:endHLnX y:yCtr
+            self displayLineFromX:begHLnX y:yCtr toX:endHLnX-xIcon y:yCtr
         ].
 
         showVLines ifTrue:[
@@ -2494,5 +2496,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.111 2009-05-10 11:00:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.112 2009-05-11 08:50:56 cg Exp $'
 ! !