SelectionInTreeView.st
changeset 5408 a10927558000
parent 5258 77a3633f2b18
child 5427 3178b508e257
--- a/SelectionInTreeView.st	Fri Jan 20 18:51:50 2017 +0100
+++ b/SelectionInTreeView.st	Fri Jan 20 18:52:35 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
               All Rights Reserved
@@ -1202,9 +1200,9 @@
     startY  := self yOfVisibleLine:visStart.
     dltLine := startLn - visStart.
     stopLn  := dltLine + visEnd.
+    
     savClip := self clippingBoundsOrNil.
-
-    self clippingRectangle:(Rectangle left:x top:y width:w height:h).
+    self clippingBounds:(Rectangle left:x top:y width:w height:h).
 
     (highlightMode == #line and:[self hasSelection]) ifTrue:[
         "/ redraw the background for all selected lines in the invalid range
@@ -1229,7 +1227,7 @@
         sel do:[:y0| self redrawSelFrameAtX:x y:y0 toX:maxX]
     ].
 
-    self clippingRectangle:savClip.
+    self clippingBounds:savClip.
 ! !
 
 !SelectionInTreeView methodsFor:'enumerating'!