--- a/ListView.st Wed Jul 21 10:00:57 1999 +0200
+++ b/ListView.st Thu Jul 22 02:10:33 1999 +0200
@@ -3376,17 +3376,18 @@
"/ OLD:
"/ self repairDamage.
- "/ make certain, that all drawing is complete
- device sync.
-
(wg := self windowGroup) notNil ifTrue:[
wg processRealExposeEventsFor:self.
].
- oldClip := self clippingRectangleOrNil.
- self clippingRectangle:nil.
+"/ oldClip := self clippingRectangleOrNil.
+"/ self clippingRectangle:nil.
self originWillChange.
+
+ "/ make certain, that all drawing is complete
+ device sync.
+
firstLineShown := newFirstLine.
viewOrigin := newViewOrigin.
leftOffset := newLeftOffset.
@@ -3436,7 +3437,7 @@
inv := (y1@margin) extent:(y0@h).
].
- self clippingRectangle:oldClip.
+"/ self clippingRectangle:oldClip.
self invalidateDeviceRectangle:inv repairNow:false.
@@ -3913,5 +3914,5 @@
!ListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.203 1999-07-21 08:00:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.204 1999-07-22 00:10:33 cg Exp $'
! !