DSVLabelView.st
changeset 1454 5d4303847148
parent 1426 9a067c26db45
child 1487 fd003e2156cc
equal deleted inserted replaced
1453:7de7269f03fc 1454:5d4303847148
   309 !
   309 !
   310 
   310 
   311 columnsOriginChanged:aPoint
   311 columnsOriginChanged:aPoint
   312     "the origin of the columnView changed caused by a scroll operation
   312     "the origin of the columnView changed caused by a scroll operation
   313     "
   313     "
   314     |point pX x w h|
   314     |point pX x w h wg|
   315 
   315 
   316     (pX := aPoint x) == 0 ifTrue:[
   316     (pX := aPoint x) == 0 ifTrue:[
   317         ^ self
   317         ^ self
   318     ].
   318     ].
   319     (self sensor hasExposeEventFor:self) ifTrue:[
   319 
   320         ^ self invalidate
   320     (wg := self windowGroup) notNil ifTrue:[
   321     ].
   321         wg processRealExposeEventsFor:self.
       
   322     ].
       
   323 
   322     point := Point x:(aPoint x) y:0.
   324     point := Point x:(aPoint x) y:0.
   323     items do:[:anItem| anItem originChanged:point].
   325     items do:[:anItem| anItem originChanged:point].
       
   326 
       
   327 "/    (self sensor hasExposeEventFor:self) ifTrue:[
       
   328 "/        ^ self invalidate
       
   329 "/    ].
   324 
   330 
   325     x := pX abs.
   331     x := pX abs.
   326 
   332 
   327     (w := self width - x) < 20 ifTrue:[
   333     (w := self width - x) < 20 ifTrue:[
   328         ^ self invalidate
   334         ^ self invalidate
   397 ! !
   403 ! !
   398 
   404 
   399 !DSVLabelView class methodsFor:'documentation'!
   405 !DSVLabelView class methodsFor:'documentation'!
   400 
   406 
   401 version
   407 version
   402     ^ '$Header: /cvs/stx/stx/libwidg2/DSVLabelView.st,v 1.23 1999-07-02 09:35:01 cg Exp $'
   408     ^ '$Header: /cvs/stx/stx/libwidg2/DSVLabelView.st,v 1.24 1999-07-14 14:22:39 cg Exp $'
   403 ! !
   409 ! !