equal
deleted
inserted
replaced
1022 preferredExtent |
1022 preferredExtent |
1023 "return a good extent, one that makes subviews fit" |
1023 "return a good extent, one that makes subviews fit" |
1024 |
1024 |
1025 |sumOfHeights maxWidth maxHeight m2 subViews| |
1025 |sumOfHeights maxWidth maxHeight m2 subViews| |
1026 |
1026 |
1027 "/ If I have an explicit preferredExtent .. |
1027 "/ If I have an explicit preferredExtent.. |
1028 |
1028 explicitExtent notNil ifTrue:[ |
|
1029 ^ explicitExtent |
|
1030 ]. |
|
1031 |
|
1032 "/ If I have a cached preferredExtent value.. |
1029 preferredExtent notNil ifTrue:[ |
1033 preferredExtent notNil ifTrue:[ |
1030 ^ preferredExtent |
1034 ^ preferredExtent |
1031 ]. |
1035 ]. |
1032 |
1036 |
1033 subViews := self subViewsToConsider. |
1037 subViews := self subViewsToConsider. |
1099 ! ! |
1103 ! ! |
1100 |
1104 |
1101 !VerticalPanelView class methodsFor:'documentation'! |
1105 !VerticalPanelView class methodsFor:'documentation'! |
1102 |
1106 |
1103 version |
1107 version |
1104 ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.46 2008-07-22 14:15:08 cg Exp $' |
1108 ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.47 2008-10-26 20:15:50 stefan Exp $' |
1105 ! ! |
1109 ! ! |