--- a/UIPainterView.st	Mon Mar 13 17:56:35 2006 +0100
+++ b/UIPainterView.st	Tue Mar 14 18:18:53 2006 +0100
@@ -1953,17 +1953,19 @@
     "
     |list|
 
+    self shown ifFalse:[^ self].
+
     selectionHiddenLevel == 0 ifTrue:[
-	aSelOrNil size ~~ 0 ifTrue:[
-	    list := OrderedCollection new.
-
-	    self selectionDo:[:el|
-		(aSelOrNil includes:el) ifFalse:[list add:el]
-	    ].
-	    self showUnselected:list.
-	] ifFalse:[
-	    self hideSelection.
-	]
+        aSelOrNil size ~~ 0 ifTrue:[
+            list := OrderedCollection new.
+
+            self selectionDo:[:el|
+                (aSelOrNil includes:el) ifFalse:[list add:el]
+            ].
+            self showUnselected:list.
+        ] ifFalse:[
+            self hideSelection.
+        ]
     ].
     self setSelection:aSelOrNil withRedraw:false.
     self showSelection