checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 14 Jul 1999 16:22:39 +0200
changeset 1454 5d4303847148
parent 1453 7de7269f03fc
child 1455 5685ec322a5b
checkin from browser
DSVLabelView.st
--- a/DSVLabelView.st	Wed Jul 14 15:02:28 1999 +0200
+++ b/DSVLabelView.st	Wed Jul 14 16:22:39 1999 +0200
@@ -311,17 +311,23 @@
 columnsOriginChanged:aPoint
     "the origin of the columnView changed caused by a scroll operation
     "
-    |point pX x w h|
+    |point pX x w h wg|
 
     (pX := aPoint x) == 0 ifTrue:[
         ^ self
     ].
-    (self sensor hasExposeEventFor:self) ifTrue:[
-        ^ self invalidate
+
+    (wg := self windowGroup) notNil ifTrue:[
+        wg processRealExposeEventsFor:self.
     ].
+
     point := Point x:(aPoint x) y:0.
     items do:[:anItem| anItem originChanged:point].
 
+"/    (self sensor hasExposeEventFor:self) ifTrue:[
+"/        ^ self invalidate
+"/    ].
+
     x := pX abs.
 
     (w := self width - x) < 20 ifTrue:[
@@ -399,5 +405,5 @@
 !DSVLabelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVLabelView.st,v 1.23 1999-07-02 09:35:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVLabelView.st,v 1.24 1999-07-14 14:22:39 cg Exp $'
 ! !