checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 22 Jul 1999 02:10:33 +0200
changeset 1970 b33eae81d696
parent 1969 69d9c43db5e9
child 1971 cff41b7cfb54
checkin from browser
ListView.st
--- 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 $'
 ! !