equal
deleted
inserted
replaced
883 preferredExtent |
883 preferredExtent |
884 "return a good extent, one that makes subviews fit" |
884 "return a good extent, one that makes subviews fit" |
885 |
885 |
886 |sumOfHeights maxWidth maxHeight m2| |
886 |sumOfHeights maxWidth maxHeight m2| |
887 |
887 |
|
888 "/ If I have an explicit preferredExtent .. |
|
889 |
888 preferredExtent notNil ifTrue:[ |
890 preferredExtent notNil ifTrue:[ |
889 ^ preferredExtent |
891 ^ preferredExtent |
890 ]. |
892 ]. |
891 |
893 |
892 subViews isNil ifTrue:[^ horizontalSpace @ verticalSpace]. |
894 subViews isNil ifTrue:[^ horizontalSpace @ verticalSpace]. |
939 ] |
941 ] |
940 ]. |
942 ]. |
941 m2 := margin * 2. |
943 m2 := margin * 2. |
942 ^ (maxWidth + m2) @ (sumOfHeights + m2) |
944 ^ (maxWidth + m2) @ (sumOfHeights + m2) |
943 |
945 |
944 "Modified: 29.5.1996 / 12:10:24 / cg" |
946 "Modified: 19.7.1996 / 20:45:46 / cg" |
945 ! ! |
947 ! ! |
946 |
948 |
947 !VerticalPanelView class methodsFor:'documentation'! |
949 !VerticalPanelView class methodsFor:'documentation'! |
948 |
950 |
949 version |
951 version |
950 ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.24 1996-07-17 12:23:24 cg Exp $' |
952 ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.25 1996-07-19 18:47:49 cg Exp $' |
951 ! ! |
953 ! ! |