--- a/ObjectView.st	Wed Oct 05 13:35:59 2005 +0200
+++ b/ObjectView.st	Wed Oct 05 15:18:40 2005 +0200
@@ -2877,10 +2877,11 @@
             self hideSelection.
             selection add:anObject.
             self showSelection.
-            self changed:#selection.
         ] ifTrue:[
+            selection add:anObject.
             self showSelected:anObject
-        ]
+        ].
+        self changed:#selection with:selection.
     ].
 
     "Modified: / 4.7.1999 / 15:22:13 / cg"
@@ -2935,7 +2936,7 @@
         ].
     ].
 
-    self changed:#selection.
+    self changed:#selection with:selection.
 
     "Modified: / 4.7.1999 / 15:22:28 / cg"
 !
@@ -3375,5 +3376,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.112 2005-08-11 14:17:07 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.113 2005-10-05 13:18:40 cg Exp $'
 ! !