class: ListModelView
changed: #drawFrom:to:x:y:w:
fix naming: new #clippingBounds insteaf of old #clipRect*
--- 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 $'
! !