--- a/UIObjectView.st Tue May 27 11:16:45 1997 +0200
+++ b/UIObjectView.st Tue May 27 15:16:55 1997 +0200
@@ -309,7 +309,20 @@
"handle an expose event from device; redraw selection
"
super exposeX:x y:y width:w height:h.
- self selectionDo:[:v | self showSelected:v]
+
+"
+catch expose events for all subviews associated with
+a selected instance
+"
+
+ self selectionDo:[:aComponent |
+ aComponent withAllSubViewsDo:[:v |
+ self sensor flushExposeEventsFor:v.
+ v exposeX:0 y:0 width:9999 height:9999.
+ ].
+
+ self showSelected:aComponent
+ ]
!
@@ -876,7 +889,7 @@
showSelected:aComponent
"show object selected
"
- |wasClipped delta oldPaint|
+ |wasClipped delta|
self paint:Color black.
@@ -892,13 +905,13 @@
wasClipped ifTrue:[
self clippedByChildren:(clipChildren := true).
].
- self paint:oldPaint.
+
!
showUnselected:aComponent
"show object unselected
"
- |wasClipped delta r oldPaint|
+ |wasClipped delta r|
(wasClipped := clipChildren) ifTrue:[
self clippedByChildren:(clipChildren := false).
@@ -926,7 +939,7 @@
(absFrame intersects:r) ifTrue:[
anotherComponent withAllSubViewsDo:[:v |
v shown ifTrue:[
- v clear.
+ v fill:v viewBackground.
v exposeX:0 y:0 width:9999 height:9999.
]
]