--- a/ObjectView.st	Wed Nov 26 15:33:49 2008 +0100
+++ b/ObjectView.st	Wed Nov 26 16:31:39 2008 +0100
@@ -2932,8 +2932,10 @@
 hideSelection
     "hide the selection - undraw hilights - whatever that is"
 
+    shown ifFalse:[^ self].
+
     self selectionDo:[:object |
-	self showUnselected:object
+        self showUnselected:object
     ]
 !
 
@@ -3053,6 +3055,8 @@
 showSelection
     "show the selection - draw hilights - whatever that is"
 
+    shown ifFalse:[^ self].
+
     self selectionDo:[:object |
         self showSelected:object
     ]
@@ -3480,5 +3484,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.127 2008-11-09 22:51:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.128 2008-11-26 15:31:39 cg Exp $'
 ! !