equal
deleted
inserted
replaced
19 |
19 |
20 HorizontalPanelView comment:' |
20 HorizontalPanelView comment:' |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libwidg/Attic/HPanelV.st,v 1.6 1994-11-17 14:34:12 claus Exp $ |
24 $Header: /cvs/stx/stx/libwidg/Attic/HPanelV.st,v 1.7 1994-11-21 16:45:24 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !HorizontalPanelView class methodsFor:'documentation'! |
27 !HorizontalPanelView class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libwidg/Attic/HPanelV.st,v 1.6 1994-11-17 14:34:12 claus Exp $ |
45 $Header: /cvs/stx/stx/libwidg/Attic/HPanelV.st,v 1.7 1994-11-21 16:45:24 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
322 borderWidth ~~ 0 ifTrue:[ |
322 borderWidth ~~ 0 ifTrue:[ |
323 sumOfWidths := sumOfWidths + (verticalSpace * 2). |
323 sumOfWidths := sumOfWidths + (verticalSpace * 2). |
324 ] |
324 ] |
325 ] ifFalse:[ |
325 ] ifFalse:[ |
326 sumOfWidths := sumOfWidths + ((subViews size - 1) * horizontalSpace). |
326 sumOfWidths := sumOfWidths + ((subViews size - 1) * horizontalSpace). |
|
327 ]. |
|
328 |
|
329 ((vLayout == #topSpace) or:[vLayout == #bottomSpace]) ifTrue:[ |
|
330 maxHeight := maxHeight + verticalSpace |
|
331 ] ifFalse:[ |
|
332 ((vLayout == #fit) or:[vLayout == #center]) ifTrue:[ |
|
333 maxHeight := maxHeight + (verticalSpace * 2) |
|
334 ] |
327 ]. |
335 ]. |
328 |
336 |
329 ^ sumOfWidths @ maxHeight |
337 ^ sumOfWidths @ maxHeight |
330 ! ! |
338 ! ! |
331 |
339 |