equal
deleted
inserted
replaced
3374 wBefore := width. |
3374 wBefore := width. |
3375 |
3375 |
3376 "/ OLD: |
3376 "/ OLD: |
3377 "/ self repairDamage. |
3377 "/ self repairDamage. |
3378 |
3378 |
|
3379 (wg := self windowGroup) notNil ifTrue:[ |
|
3380 wg processRealExposeEventsFor:self. |
|
3381 ]. |
|
3382 |
|
3383 "/ oldClip := self clippingRectangleOrNil. |
|
3384 "/ self clippingRectangle:nil. |
|
3385 |
|
3386 self originWillChange. |
|
3387 |
3379 "/ make certain, that all drawing is complete |
3388 "/ make certain, that all drawing is complete |
3380 device sync. |
3389 device sync. |
3381 |
3390 |
3382 (wg := self windowGroup) notNil ifTrue:[ |
|
3383 wg processRealExposeEventsFor:self. |
|
3384 ]. |
|
3385 |
|
3386 oldClip := self clippingRectangleOrNil. |
|
3387 self clippingRectangle:nil. |
|
3388 |
|
3389 self originWillChange. |
|
3390 firstLineShown := newFirstLine. |
3391 firstLineShown := newFirstLine. |
3391 viewOrigin := newViewOrigin. |
3392 viewOrigin := newViewOrigin. |
3392 leftOffset := newLeftOffset. |
3393 leftOffset := newLeftOffset. |
3393 |
3394 |
3394 self catchExpose. |
3395 self catchExpose. |
3434 ]. |
3435 ]. |
3435 |
3436 |
3436 inv := (y1@margin) extent:(y0@h). |
3437 inv := (y1@margin) extent:(y0@h). |
3437 ]. |
3438 ]. |
3438 |
3439 |
3439 self clippingRectangle:oldClip. |
3440 "/ self clippingRectangle:oldClip. |
3440 |
3441 |
3441 self invalidateDeviceRectangle:inv repairNow:false. |
3442 self invalidateDeviceRectangle:inv repairNow:false. |
3442 |
3443 |
3443 self waitForExpose. |
3444 self waitForExpose. |
3444 self originChanged:delta. |
3445 self originChanged:delta. |
3911 ! ! |
3912 ! ! |
3912 |
3913 |
3913 !ListView class methodsFor:'documentation'! |
3914 !ListView class methodsFor:'documentation'! |
3914 |
3915 |
3915 version |
3916 version |
3916 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.203 1999-07-21 08:00:57 cg Exp $' |
3917 ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.204 1999-07-22 00:10:33 cg Exp $' |
3917 ! ! |
3918 ! ! |