equal
deleted
inserted
replaced
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Views-Layout' |
17 category:'Views-Layout' |
18 ! |
18 ! |
19 |
19 |
20 !HorizontalPanelView class methodsFor:'documentation'! |
20 !HorizontalPanelView class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
23 " |
23 " |
24 COPYRIGHT (c) 1989 by Claus Gittinger |
24 COPYRIGHT (c) 1989 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
1262 |
1262 |
1263 index == numChilds ifTrue:[ |
1263 index == numChilds ifTrue:[ |
1264 |x| |
1264 |x| |
1265 |
1265 |
1266 (hL == #leftFit or:[hL == #leftSpaceFit]) ifTrue:[ |
1266 (hL == #leftFit or:[hL == #leftSpaceFit]) ifTrue:[ |
1267 x := width - margin - 1. |
1267 x := width - margin - 1 - (child borderWidth * 2) + borderWidth. |
1268 hL == #leftSpaceFit ifTrue:[ |
1268 hL == #leftSpaceFit ifTrue:[ |
1269 x := x - space |
1269 x := x - space |
1270 ] |
1270 ] |
1271 ]. |
1271 ]. |
1272 x notNil ifTrue:[ |
1272 x notNil ifTrue:[ |
1274 ] |
1274 ] |
1275 ] |
1275 ] |
1276 ]. |
1276 ]. |
1277 |
1277 |
1278 "Modified: 4.9.1995 / 18:43:10 / claus" |
1278 "Modified: 4.9.1995 / 18:43:10 / claus" |
1279 "Modified: 22.2.1996 / 21:25:54 / cg" |
1279 "Modified: 17.7.1996 / 11:47:58 / cg" |
1280 ! ! |
1280 ! ! |
1281 |
1281 |
1282 !HorizontalPanelView methodsFor:'queries'! |
1282 !HorizontalPanelView methodsFor:'queries'! |
1283 |
1283 |
1284 preferredExtent |
1284 preferredExtent |
1347 ^ (sumOfWidths + m2) @ (maxHeight + m2) |
1347 ^ (sumOfWidths + m2) @ (maxHeight + m2) |
1348 |
1348 |
1349 "Modified: 29.5.1996 / 12:12:31 / cg" |
1349 "Modified: 29.5.1996 / 12:12:31 / cg" |
1350 ! ! |
1350 ! ! |
1351 |
1351 |
1352 !HorizontalPanelView class methodsFor:'documentation'! |
1352 !HorizontalPanelView class methodsFor:'documentation'! |
1353 |
1353 |
1354 version |
1354 version |
1355 ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.24 1996-05-29 10:17:27 cg Exp $' |
1355 ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.25 1996-07-17 12:22:56 cg Exp $' |
1356 ! ! |
1356 ! ! |