equal
deleted
inserted
replaced
828 maxX := maxX - viewOrigin x. |
828 maxX := maxX - viewOrigin x. |
829 maxX > xLft ifFalse:[ |
829 maxX > xLft ifFalse:[ |
830 ^ self. |
830 ^ self. |
831 ]. |
831 ]. |
832 w := maxX - xLft min:aWidth. |
832 w := maxX - xLft min:aWidth. |
833 (clip := self clipRect copy) notNil ifTrue:[ |
833 clip := self clippingBoundsOrNil. |
|
834 clip notNil ifTrue:[ |
|
835 clip := clip copy. |
834 clip width:w |
836 clip width:w |
835 ] ifFalse:[ |
837 ] ifFalse:[ |
836 clip := Rectangle |
838 clip := Rectangle |
837 left:xLft |
839 left:xLft |
838 top:yTop |
840 top:yTop |
839 width:w |
841 width:w |
840 height:(height - yTop - margin). |
842 height:(height - yTop - margin). |
841 ]. |
843 ]. |
842 self clippingRectangle:clip. |
844 self clippingBounds:clip. |
843 ]. |
845 ]. |
844 self |
846 self |
845 drawElementsFrom:start |
847 drawElementsFrom:start |
846 to:stop |
848 to:stop |
847 x:xLft |
849 x:xLft |
2356 hgFgColor := view hilightForegroundColor. |
2358 hgFgColor := view hilightForegroundColor. |
2357 hgBgColor := view hilightBackgroundColor. |
2359 hgBgColor := view hilightBackgroundColor. |
2358 ]. |
2360 ]. |
2359 fgColor := view foregroundColor. |
2361 fgColor := view foregroundColor. |
2360 bgColor := view backgroundColor. |
2362 bgColor := view backgroundColor. |
2361 clip := view clipRect. |
2363 clip := view clippingBoundsOrNil. |
2362 |
2364 |
2363 clip isNil ifTrue:[ |
2365 clip isNil ifTrue:[ |
2364 clip := Rectangle left:xDmg top:yStart width:wDmg height:(view height - yStart). |
2366 clip := Rectangle left:xDmg top:yStart width:wDmg height:(view height - yStart). |
2365 ]. |
2367 ]. |
2366 colInset := self splitbarInset. |
2368 colInset := self splitbarInset. |
3401 ! ! |
3403 ! ! |
3402 |
3404 |
3403 !ListModelView class methodsFor:'documentation'! |
3405 !ListModelView class methodsFor:'documentation'! |
3404 |
3406 |
3405 version |
3407 version |
3406 ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.137 2013-08-23 17:04:08 vrany Exp $' |
3408 ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.138 2014-02-03 10:37:08 stefan Exp $' |
3407 ! |
3409 ! |
3408 |
3410 |
3409 version_CVS |
3411 version_CVS |
3410 ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.137 2013-08-23 17:04:08 vrany Exp $' |
3412 ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.138 2014-02-03 10:37:08 stefan Exp $' |
3411 ! ! |
3413 ! ! |
3412 |
3414 |
3413 |
3415 |
3414 ListModelView initialize! |
3416 ListModelView initialize! |