UIObjectView.st
changeset 1016 2660d468dc61
parent 997 2a8a32256d4a
child 1048 d6d4b7abfdd0
equal deleted inserted replaced
1015:a5d37f30faa8 1016:2660d468dc61
   484         (self sensor hasExposeEventFor:nil) ifTrue:[^ self].
   484         (self sensor hasExposeEventFor:nil) ifTrue:[^ self].
   485 
   485 
   486         self selectionDo:[:aComponent |
   486         self selectionDo:[:aComponent |
   487             aComponent withAllSubViewsDo:[:v |
   487             aComponent withAllSubViewsDo:[:v |
   488                 self sensor flushExposeEventsFor:v.
   488                 self sensor flushExposeEventsFor:v.
   489                 v exposeX:0 y:0 width:9999 height:9999.
   489                 v exposeX:0 y:0 width:v width height:v height.
   490             ].
   490             ].
   491             self showSelected:aComponent
   491             self showSelected:aComponent
   492         ]
   492         ]
   493     ].
   493     ].
   494 
   494 
   495 
   495     "Modified: / 9.11.1998 / 12:50:34 / cg"
   496 !
   496 !
   497 
   497 
   498 keyPress:key x:x y:y
   498 keyPress:key x:x y:y
   499     "any key pressed
   499     "any key pressed
   500     "
   500     "