equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libwidg' }" |
12 "{ Package: 'stx:libwidg' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 PanelView subclass:#HorizontalPanelView |
16 PanelView subclass:#HorizontalPanelView |
15 instanceVariableNames:'reverseOrderIfOKAtLeft' |
17 instanceVariableNames:'reverseOrderIfOKAtLeft' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
1269 sumOfWidths := sumOfWidths - subViews first widthIncludingBorder. |
1271 sumOfWidths := sumOfWidths - subViews first widthIncludingBorder. |
1270 ] |
1272 ] |
1271 ]. |
1273 ]. |
1272 ]. |
1274 ]. |
1273 |
1275 |
1274 restWidth := width - sumOfWidths "- (numChilds-1*space)". |
1276 restWidth := wInside "width" - sumOfWidths "- (numChilds-1*space)". |
1275 |
1277 |
1276 ((l == #center) and:[numChilds == 1]) ifTrue:[l := #spread]. |
1278 ((l == #center) and:[numChilds == 1]) ifTrue:[l := #spread]. |
1277 (l == #spread and:[numChilds == 1]) ifTrue:[l := #spreadSpace]. |
1279 (l == #spread and:[numChilds == 1]) ifTrue:[l := #spreadSpace]. |
1278 |
1280 |
1279 " |
1281 " |
1418 newHChild := height - ((verticalSpace + bwChild) * 2). |
1420 newHChild := height - ((verticalSpace + bwChild) * 2). |
1419 ypos := ypos + margin. |
1421 ypos := ypos + margin. |
1420 newHChild := newHChild - m2. |
1422 newHChild := newHChild - m2. |
1421 ] ifFalse:[ |
1423 ] ifFalse:[ |
1422 vL == #fit ifTrue:[ |
1424 vL == #fit ifTrue:[ |
1423 newHChild := height - (bwChild * 2). |
1425 newHChild := height "- (bwChild * 2)". |
1424 "/ |
1426 "/ |
1425 "/ if the view has a 0-level AND |
1427 "/ if the view has a 0-level AND |
1426 "/ my level is non-zero, begin with margin |
1428 "/ my level is non-zero, begin with margin |
1427 "/ |
1429 "/ |
1428 true "(level ~~ 0 and:[child level == 0])" ifTrue:[ |
1430 true "(level ~~ 0 and:[child level == 0])" ifTrue:[ |
1595 ! ! |
1597 ! ! |
1596 |
1598 |
1597 !HorizontalPanelView class methodsFor:'documentation'! |
1599 !HorizontalPanelView class methodsFor:'documentation'! |
1598 |
1600 |
1599 version |
1601 version |
1600 ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.63 2014-12-18 23:12:41 cg Exp $' |
1602 ^ '$Header$' |
1601 ! |
1603 ! |
1602 |
1604 |
1603 version_CVS |
1605 version_CVS |
1604 ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.63 2014-12-18 23:12:41 cg Exp $' |
1606 ^ '$Header$' |
1605 ! ! |
1607 ! ! |
1606 |
1608 |