*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 08 Apr 1997 01:38:44 +0200
changeset 99 25a9fd61400c
parent 98 b913c0f095ab
child 100 01775d3d8489
*** empty log message ***
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