UIObjectView.st
changeset 1911 0538568157f0
parent 1903 f409fa760169
child 1918 f5e8dfe30838
equal deleted inserted replaced
1910:4ca9f4b322c9 1911:0538568157f0
   489     resizeData isNil ifTrue:[
   489     resizeData isNil ifTrue:[
   490         super exposeX:x y:y width:w height:h.
   490         super exposeX:x y:y width:w height:h.
   491 
   491 
   492         "/ handle any expose events (for subcomponents) before
   492         "/ handle any expose events (for subcomponents) before
   493         "/ redrawing the handles.
   493         "/ redrawing the handles.
   494         (self sensor hasExposeEventFor:nil) ifTrue:[^ self].
   494 "/        (self sensor hasExposeEventFor:nil) ifTrue:[^ self].
   495 
   495 "/
   496         self selectionDo:[:aComponent |
   496 "/        self selectionDo:[:aComponent |
   497             aComponent withAllSubViewsDo:[:v |
   497 "/            aComponent withAllSubViewsDo:[:v |
   498                 v realized ifTrue:[
   498 "/                v realized ifTrue:[
   499                     self sensor flushExposeEventsFor:v.
   499 "/                    self sensor flushExposeEventsFor:v.
   500                     v exposeX:0 y:0 width:v width height:v height.
   500 "/                    v exposeX:0 y:0 width:v width height:v height.
   501                 ]
   501 "/                ]
   502             ].
   502 "/            ].
   503             self showSelected:aComponent
   503 "/            self showSelected:aComponent
   504         ]
   504 "/        ]
   505     ].
   505     ].
   506 
   506 
   507     "Modified: / 9.11.1998 / 12:50:34 / cg"
   507     "Modified: / 9.11.1998 / 12:50:34 / cg"
   508 !
   508 !
   509 
   509 
   597     anEvent view:self.
   597     anEvent view:self.
   598     ^ false.
   598     ^ false.
   599 !
   599 !
   600 
   600 
   601 redrawX:nx y:ny width:nw height:nh
   601 redrawX:nx y:ny width:nw height:nh
   602     "ignore redraws - my components redraw themself
   602     |redrawFrame|
   603     "
   603 
       
   604     redrawFrame := Rectangle left:nx top:ny width:nw height:nh.
       
   605 
       
   606     self selectionDo:[:aComponent |
       
   607         |anyHandleToRedraw|
       
   608 
       
   609         anyHandleToRedraw := false.
       
   610         self handlesOf:aComponent do:[:hRect :typeOfHandle |
       
   611             (hRect intersects:redrawFrame) ifTrue:[        
       
   612                 anyHandleToRedraw := true.
       
   613             ].
       
   614         ].
       
   615         anyHandleToRedraw ifTrue:[
       
   616             self showSelected:aComponent
       
   617         ]
       
   618     ]
   604 !
   619 !
   605 
   620 
   606 sizeChanged:how
   621 sizeChanged:how
   607     "size of a view(s) changed
   622     "size of a view(s) changed
   608     "
   623     "