author | Claus Gittinger <cg@exept.de> |
Tue, 08 Apr 1997 01:38:44 +0200 | |
changeset 99 | 25a9fd61400c |
parent 98 | b913c0f095ab |
child 100 | 01775d3d8489 |
UIObjectView.st | file | annotate | diff | comparison | revisions |
--- 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