--- a/ObjectView.st	Thu Mar 16 15:25:38 2006 +0100
+++ b/ObjectView.st	Thu Mar 16 20:43:50 2006 +0100
@@ -472,6 +472,11 @@
     ]
 !
 
+contents:aCollectionOfObjects
+    contents := aCollectionOfObjects.
+    self invalidate.
+!
+
 remove:something
     "remove something, anObject or a collection of objects from the contents
      do redraw"
@@ -3376,5 +3381,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.113 2005-10-05 13:18:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.114 2006-03-16 19:43:50 cg Exp $'
 ! !