equal
deleted
inserted
replaced
726 |
726 |
727 setChildPositions |
727 setChildPositions |
728 "(re)compute position of every child" |
728 "(re)compute position of every child" |
729 |
729 |
730 |ypos space sumOfHeights numChilds l hEach hInside hL vL |
730 |ypos space sumOfHeights numChilds l hEach hInside hL vL |
731 maxWidth maxHeight resizeToMaxV resizeToMaxH m2 subViews ext |
731 maxWidth maxHeight resizeToMaxV resizeToMaxH m2 subViews restHeight y2 bw| |
732 restHeight y2 bw| |
|
733 |
732 |
734 subViews := self subViewsToConsider. |
733 subViews := self subViewsToConsider. |
735 subViews size == 0 ifTrue:[^ self]. |
734 subViews size == 0 ifTrue:[^ self]. |
736 |
735 |
737 bw := self borderWidth. |
736 bw := self borderWidth. |
753 |
752 |
754 resizeToMaxV := false. |
753 resizeToMaxV := false. |
755 (vL endsWith:'Max') ifTrue:[ |
754 (vL endsWith:'Max') ifTrue:[ |
756 resizeToMaxV := true. |
755 resizeToMaxV := true. |
757 hEach := maxHeight := subViews inject:0 into:[:maxSoFar :child | maxSoFar max:child heightIncludingBorder]. |
756 hEach := maxHeight := subViews inject:0 into:[:maxSoFar :child | maxSoFar max:child heightIncludingBorder]. |
758 vL := (vL copyWithoutLast:3) asSymbol. |
757 vL := (vL copyButLast:3) asSymbol. |
759 ]. |
758 ]. |
760 |
759 |
761 numChilds == 1 ifTrue:[ |
760 numChilds == 1 ifTrue:[ |
762 (vL == #topFit or:[vL == #bottomFit]) ifTrue:[ |
761 (vL == #topFit or:[vL == #bottomFit]) ifTrue:[ |
763 vL := #fit |
762 vL := #fit |
905 |
904 |
906 resizeToMaxH := false. |
905 resizeToMaxH := false. |
907 (hL endsWith:'Max') ifTrue:[ |
906 (hL endsWith:'Max') ifTrue:[ |
908 resizeToMaxH := true. |
907 resizeToMaxH := true. |
909 maxWidth := subViews inject:0 into:[:maxSoFar :child | maxSoFar max:child widthIncludingBorder]. |
908 maxWidth := subViews inject:0 into:[:maxSoFar :child | maxSoFar max:child widthIncludingBorder]. |
910 hL := (hL copyWithoutLast:3) asSymbol. |
909 hL := (hL copyButLast:3) asSymbol. |
911 ]. |
910 ]. |
912 |
911 |
913 " |
912 " |
914 now set positions |
913 now set positions |
915 " |
914 " |
1108 ! ! |
1107 ! ! |
1109 |
1108 |
1110 !VerticalPanelView class methodsFor:'documentation'! |
1109 !VerticalPanelView class methodsFor:'documentation'! |
1111 |
1110 |
1112 version |
1111 version |
1113 ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.50 2009-10-23 15:22:25 cg Exp $' |
1112 ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.51 2013-04-25 13:09:54 stefan Exp $' |
1114 ! |
1113 ! |
1115 |
1114 |
1116 version_CVS |
1115 version_CVS |
1117 ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.50 2009-10-23 15:22:25 cg Exp $' |
1116 ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.51 2013-04-25 13:09:54 stefan Exp $' |
1118 ! ! |
1117 ! ! |
|
1118 |