--- a/ObjectView.st	Wed Jul 30 08:09:59 2003 +0200
+++ b/ObjectView.st	Thu Jul 31 10:28:52 2003 +0200
@@ -398,7 +398,7 @@
 
     anObject notNil ifTrue:[
         contents addLast:anObject.
-        self changed:#addObject.
+        self changed:#addObject with:anObject.
         "its on top - only draw this one"
         shown "realized" ifTrue:[
             self showUnselected:anObject
@@ -473,7 +473,7 @@
         self forEach:something do:[:anObject |
             self removeFromSelection:anObject.
             contents remove:anObject.
-            self changed:#removeObject.
+            self changed:#removeObject with:anObject.
         ].
         self invalidate.
         ^ self
@@ -614,7 +614,6 @@
     tmp notNil ifTrue:[
         self unselect.
         self remove:tmp.
-"/    self setSelection:tmp
     ].
 
     ^ tmp
@@ -3326,5 +3325,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.98 2003-07-30 06:09:59 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.99 2003-07-31 08:28:52 tm Exp $'
 ! !