# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1391423828 -3600
# Node ID 7d68fb3be1776a058af839db0763185bff3aca1a
# Parent  b7e2eb4be8379ecdd0525ec6fa8fb8b07030c3f1
class: ListModelView
changed: #drawFrom:to:x:y:w:

fix naming: new #clippingBounds insteaf of old #clipRect*

diff -r b7e2eb4be837 -r 7d68fb3be177 ListModelView.st
--- a/ListModelView.st	Mon Jan 27 17:06:18 2014 +0100
+++ b/ListModelView.st	Mon Feb 03 11:37:08 2014 +0100
@@ -830,7 +830,9 @@
             ^ self.
         ].
         w := maxX - xLft min:aWidth.
-        (clip := self clipRect copy) notNil ifTrue:[
+        clip := self clippingBoundsOrNil.
+        clip notNil ifTrue:[
+            clip := clip copy.
             clip width:w
         ] ifFalse:[
             clip := Rectangle 
@@ -839,7 +841,7 @@
                         width:w
                         height:(height - yTop - margin).
         ].
-        self clippingRectangle:clip.
+        self clippingBounds:clip.
     ].
     self 
         drawElementsFrom:start
@@ -2358,7 +2360,7 @@
     ].
     fgColor := view foregroundColor.
     bgColor := view backgroundColor.
-    clip    := view clipRect.
+    clip    := view clippingBoundsOrNil.
 
     clip isNil ifTrue:[
         clip := Rectangle left:xDmg top:yStart width:wDmg height:(view height - yStart).
@@ -3403,11 +3405,11 @@
 !ListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.137 2013-08-23 17:04:08 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.138 2014-02-03 10:37:08 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.137 2013-08-23 17:04:08 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.138 2014-02-03 10:37:08 stefan Exp $'
 ! !