--- a/ObjectView.st	Thu Jan 16 13:00:41 2003 +0100
+++ b/ObjectView.st	Tue Jan 21 16:55:51 2003 +0100
@@ -212,6 +212,25 @@
         top open
                                                                         [exEnd]
 
+    mix views and displayObjects:
+                                                                        [exBegin]
+        |v top o|
+
+        top := HVScrollableView for:ObjectView.
+        top extent:200@200.
+        v := top scrolledView.
+
+        o := DrawLine new.
+        o origin:10@10 corner:50@50.
+        v add:o.
+
+        o := ClockView in:top.
+        o origin:50@50 corner:100@100.
+        v add:o.
+
+        top open
+                                                                        [exEnd]
+
     grid:
                                                                         [exBegin]
         |v top o|
@@ -1287,7 +1306,9 @@
 showUnselected:anObject
     "show an object as unselected"
 
-    anObject drawIn:self
+    anObject isView ifFalse:[
+        anObject drawIn:self
+    ]
 ! !
 
 !ObjectView methodsFor:'event handling'!
@@ -3257,5 +3278,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.93 2002-10-31 23:25:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.94 2003-01-21 15:55:51 mb Exp $'
 ! !