--- a/SelectionInTreeView.st	Fri Sep 28 15:25:11 2001 +0200
+++ b/SelectionInTreeView.st	Fri Oct 05 10:55:59 2001 +0200
@@ -1162,17 +1162,14 @@
         "/ draw edge
 
         highlightMode == #line ifTrue:[
-            w := ((width - (2 * margin)) max:(self widthOfContents)) + leftOffset.
-            x := margin - leftOffset.
+            w := ((width - (2 * margin)) max:(self widthOfContents)) + viewOrigin x.
+            x := margin - viewOrigin x.
         ] ifFalse:[
             w := x1 - x0.
             x := x0.
         ].
         self drawEdgesForX:x y:y0 width:w height:fontHeight level:hilightLevel.
     ]
-
-
-
 !
 
 redrawX:x y:y width:w height:h
@@ -2036,7 +2033,7 @@
     maxSz  := 0.
 
     buildInArray do:[:el|
-        el == 0 ifTrue:[ ^ maxSz + leftOffset ].
+        el == 0 ifTrue:[ ^ maxSz + viewOrigin x ].
         maxSz  := maxSz max:(el * width + startX).
         startX := startX + deltaX.
     ].
@@ -2073,7 +2070,7 @@
     (widthOfWidestLine notNil and:[aString size ~~ 0]) ifTrue:[
         width := self xOfStringNode:(listOfNodes at:anIndex)
                + (aString widthOn:self)
-               + leftOffset.
+               + viewOrigin x.
 
         widthOfWidestLine := widthOfWidestLine max:width.
     ].
@@ -2132,8 +2129,7 @@
             l := l - 1
         ]
     ].
-  ^ (l * (imageInset + imageWidth)) + imageInset - leftOffset + leftMargin
-
+  ^ (l * (imageInset + imageWidth)) + imageInset - viewOrigin x + leftMargin
 !
 
 xOfFigureNode:aNode
@@ -2472,5 +2468,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.94 2001-09-28 13:25:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.95 2001-10-05 08:55:59 cg Exp $'
 ! !