equal
deleted
inserted
replaced
535 " |
535 " |
536 |prop| |
536 |prop| |
537 |
537 |
538 aView isNil ifTrue:[ ^ false ]. |
538 aView isNil ifTrue:[ ^ false ]. |
539 |
539 |
540 (aView isKindOf:VerticalPanelView) ifTrue:[self halt]. |
|
541 (prop := self propertyOfView:aView) notNil ifTrue:[ |
540 (prop := self propertyOfView:aView) notNil ifTrue:[ |
542 ^ prop spec class supportsSubComponents |
541 ^ prop spec class supportsSubComponents |
543 ]. |
542 ]. |
544 ^ aView specClass supportsSubComponents. |
543 ^ aView specClass supportsSubComponents. |
545 ! |
544 ! |