--- 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 $'
! !