equal
deleted
inserted
replaced
650 |
650 |
651 setChildPositions |
651 setChildPositions |
652 "(re)compute position of every child" |
652 "(re)compute position of every child" |
653 |
653 |
654 |ypos space sumOfHeights numChilds l hEach hInside |
654 |ypos space sumOfHeights numChilds l hEach hInside |
655 maxWidth resizeToMax hL m2 subViews| |
655 maxWidth resizeToMax hL m2 subViews ext| |
656 |
656 |
657 subViews := self subViews. |
657 subViews := self subViews. |
658 subViews isNil ifTrue:[^ self]. |
658 subViews size == 0 ifTrue:[^ self]. |
|
659 |
|
660 extentChanged ifTrue:[ |
|
661 ext := self computeExtent. |
|
662 width := ext x. |
|
663 height := ext y. |
|
664 ]. |
659 |
665 |
660 space := verticalSpace. |
666 space := verticalSpace. |
661 numChilds := subViews size. |
667 numChilds := subViews size. |
662 m2 := margin * 2. |
668 m2 := margin * 2. |
663 hInside := height - m2 + (borderWidth*2) - subViews last borderWidth. |
669 hInside := height - m2 + (borderWidth*2) - subViews last borderWidth. |
956 ! ! |
962 ! ! |
957 |
963 |
958 !VerticalPanelView class methodsFor:'documentation'! |
964 !VerticalPanelView class methodsFor:'documentation'! |
959 |
965 |
960 version |
966 version |
961 ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.28 1997-02-21 19:31:01 ca Exp $' |
967 ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.29 1997-02-25 13:03:55 ca Exp $' |
962 ! ! |
968 ! ! |