# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 860456324 -7200
# Node ID 25a9fd61400ca239277e6f855550a02cac3f0ce3
# Parent  b913c0f095ab287d2d80d5344b8262ba103776aa
*** empty log message ***

diff -r b913c0f095ab -r 25a9fd61400c UIObjectView.st
--- a/UIObjectView.st	Tue Apr 08 01:38:16 1997 +0200
+++ b/UIObjectView.st	Tue Apr 08 01:38:44 1997 +0200
@@ -1361,14 +1361,14 @@
         theView notNil ifTrue:[
             theSpec := self specFor:theView.
             theSpec isNil ifTrue:[
-                self halt.
+                ^ theView specClass supportsSubComponents
             ].
             ^ theSpec class supportsSubComponents
         ]
     ].
     ^ false
 
-    "Modified: 8.4.1997 / 01:08:06 / cg"
+    "Modified: 8.4.1997 / 01:19:14 / cg"
 !
 
 canSelect:something