--- a/UIObjectView.st Thu Jun 02 14:29:58 2005 +0200
+++ b/UIObjectView.st Tue Jun 07 17:02:24 2005 +0200
@@ -491,17 +491,17 @@
"/ handle any expose events (for subcomponents) before
"/ redrawing the handles.
- (self sensor hasExposeEventFor:nil) ifTrue:[^ self].
-
- self selectionDo:[:aComponent |
- aComponent withAllSubViewsDo:[:v |
- v realized ifTrue:[
- self sensor flushExposeEventsFor:v.
- v exposeX:0 y:0 width:v width height:v height.
- ]
- ].
- self showSelected:aComponent
- ]
+"/ (self sensor hasExposeEventFor:nil) ifTrue:[^ self].
+"/
+"/ self selectionDo:[:aComponent |
+"/ aComponent withAllSubViewsDo:[:v |
+"/ v realized ifTrue:[
+"/ self sensor flushExposeEventsFor:v.
+"/ v exposeX:0 y:0 width:v width height:v height.
+"/ ]
+"/ ].
+"/ self showSelected:aComponent
+"/ ]
].
"Modified: / 9.11.1998 / 12:50:34 / cg"
@@ -599,8 +599,23 @@
!
redrawX:nx y:ny width:nw height:nh
- "ignore redraws - my components redraw themself
- "
+ |redrawFrame|
+
+ redrawFrame := Rectangle left:nx top:ny width:nw height:nh.
+
+ self selectionDo:[:aComponent |
+ |anyHandleToRedraw|
+
+ anyHandleToRedraw := false.
+ self handlesOf:aComponent do:[:hRect :typeOfHandle |
+ (hRect intersects:redrawFrame) ifTrue:[
+ anyHandleToRedraw := true.
+ ].
+ ].
+ anyHandleToRedraw ifTrue:[
+ self showSelected:aComponent
+ ]
+ ]
!
sizeChanged:how