equal
deleted
inserted
replaced
542 |
542 |
543 (self aspectFor:#defaultExtentEnabled) value:(aSpec class == WindowSpec) not. |
543 (self aspectFor:#defaultExtentEnabled) value:(aSpec class == WindowSpec) not. |
544 |
544 |
545 aTypeOrNil notNil ifTrue:[ |
545 aTypeOrNil notNil ifTrue:[ |
546 self class slices findFirst:[:e| |
546 self class slices findFirst:[:e| |
547 e last == aTypeOrNil ifTrue:[name := e first. true] |
547 e last == aTypeOrNil |
|
548 ifTrue:[name := e first. true] |
|
549 ifFalse:[false]. |
548 ]. |
550 ]. |
549 list := Array with:name with: 'Frame'. |
551 list := Array with:name with: 'Frame'. |
550 ] ifFalse:[ |
552 ] ifFalse:[ |
551 (type := UIPainterView layoutType:layoutView) notNil ifTrue:[ |
553 (type := UIPainterView layoutType:layoutView) notNil ifTrue:[ |
552 self class slices findFirst:[:e| |
554 self class slices findFirst:[:e| |
553 e last == type ifTrue:[name := e first. true] |
555 e last == type ifTrue:[name := e first. true] ifFalse:[false] |
554 ]. |
556 ]. |
555 list := tabList. |
557 list := tabList. |
556 type == #Extent ifTrue:[ |
558 type == #Extent ifTrue:[ |
557 aView superView specClass isLayoutContainer ifTrue:[ |
559 aView superView specClass isLayoutContainer ifTrue:[ |
558 list := Array with:name |
560 list := Array with:name |