--- a/SelTreeV.st	Sun Feb 22 14:36:02 1998 +0100
+++ b/SelTreeV.st	Sun Feb 22 15:26:16 1998 +0100
@@ -546,7 +546,6 @@
      lv     "{ Class:SmallInteger }"
      figWidthDiv2 "{ Class:SmallInteger }"
     |
-
     level := nil. "/ to force evaluation of #ifFalse in loop
     yTop  := y0.
     index := start.
@@ -691,8 +690,6 @@
     visEnd   := self visibleLineOfY:(y + h).
     startLn  := self visibleLineToAbsoluteLine:visStart.
 
-    saveClip := clipRect.
-    self clippingRectangle:(Rectangle left:x top:y width:w height:h).
     self paint:bgColor.
     self fillRectangleX:x y:y width:w height:h.
 
@@ -717,8 +714,8 @@
             ]
         ].
         self redrawLinesX:x y:startY toX:(x + w) start:startLn stop:stopLn.
+        self clippingRectangle:saveClip.
     ].
-    self clippingRectangle:saveClip.
 
 ! !
 
@@ -1554,5 +1551,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.43 1998-02-22 13:36:02 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.44 1998-02-22 14:26:16 ca Exp $'
 ! !

--- a/SelectionInTreeView.st	Sun Feb 22 14:36:02 1998 +0100
+++ b/SelectionInTreeView.st	Sun Feb 22 15:26:16 1998 +0100
@@ -546,7 +546,6 @@
      lv     "{ Class:SmallInteger }"
      figWidthDiv2 "{ Class:SmallInteger }"
     |
-
     level := nil. "/ to force evaluation of #ifFalse in loop
     yTop  := y0.
     index := start.
@@ -691,8 +690,6 @@
     visEnd   := self visibleLineOfY:(y + h).
     startLn  := self visibleLineToAbsoluteLine:visStart.
 
-    saveClip := clipRect.
-    self clippingRectangle:(Rectangle left:x top:y width:w height:h).
     self paint:bgColor.
     self fillRectangleX:x y:y width:w height:h.
 
@@ -717,8 +714,8 @@
             ]
         ].
         self redrawLinesX:x y:startY toX:(x + w) start:startLn stop:stopLn.
+        self clippingRectangle:saveClip.
     ].
-    self clippingRectangle:saveClip.
 
 ! !
 
@@ -1554,5 +1551,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.43 1998-02-22 13:36:02 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.44 1998-02-22 14:26:16 ca Exp $'
 ! !