--- a/UIPainterView.st	Wed Apr 08 01:25:23 1998 +0200
+++ b/UIPainterView.st	Wed Apr 08 13:16:21 1998 +0200
@@ -1247,11 +1247,21 @@
 updateSelectionFromModel:aSelOrNil
     "update selection from a new selection
     "
+    |aSet|
+
     selectionHiddenLevel == 0 ifTrue:[
         aSelOrNil size ~~ 0 ifTrue:[
-            self selectionDo:[:el| (aSelOrNil includes:el) ifFalse:[self showUnselected:el] ]
+            self selectionDo:[:el|
+                (aSelOrNil includes:el) ifFalse:[
+                    aSet isNil ifTrue:[
+                        aSet := IdentitySet new
+                    ].
+                    self showUnselected:el addAffectedViewsTo:aSet.
+                ] 
+            ].
+            self handleAffectedViews:aSet.
         ] ifFalse:[
-            self selectionDo:[:el| self showUnselected:el ]
+            self hideSelection.
         ]
     ].
     self setSelection:aSelOrNil withRedraw:false.