equal
deleted
inserted
replaced
1034 ! ! |
1034 ! ! |
1035 |
1035 |
1036 !Label methodsFor:'accessing-layout'! |
1036 !Label methodsFor:'accessing-layout'! |
1037 |
1037 |
1038 adjust |
1038 adjust |
1039 "return the adjust symbol" |
1039 "return the adjust symbol. See #adjust: for an explanation." |
1040 |
1040 |
1041 ^ adjust |
1041 ^ adjust |
1042 ! |
1042 ! |
1043 |
1043 |
1044 adjust:how |
1044 adjust:how |
1356 |
1356 |
1357 labelOriginY := y. |
1357 labelOriginY := y. |
1358 |
1358 |
1359 a := adjust. |
1359 a := adjust. |
1360 (width < labelWidth) ifTrue:[ |
1360 (width < labelWidth) ifTrue:[ |
1361 ((adjust == #centerRight) or:[adjust == #leftRight]) ifTrue:[ |
1361 ((a == #centerRight) or:[a == #leftRight]) ifTrue:[ |
1362 a := #right |
1362 a := #right |
1363 ] ifFalse:[ |
1363 ] ifFalse:[ |
1364 ((adjust == #centerLeft) or:[adjust == #rightLeft]) ifTrue:[ |
1364 ((a == #centerLeft) or:[a == #rightLeft]) ifTrue:[ |
1365 a := #left |
1365 a := #left |
1366 ]. |
1366 ]. |
1367 ] |
1367 ] |
1368 ] ifFalse:[ |
1368 ] ifFalse:[ |
1369 ((adjust == #centerRight) or:[adjust == #centerLeft]) ifTrue:[ |
1369 ((a == #centerRight) or:[a == #centerLeft]) ifTrue:[ |
1370 a := #center |
1370 a := #center |
1371 ] ifFalse:[ |
1371 ] ifFalse:[ |
1372 adjust == #leftRight ifTrue:[ |
1372 a == #leftRight ifTrue:[ |
1373 a := #left |
1373 a := #left |
1374 ] ifFalse:[ |
1374 ] ifFalse:[ |
1375 adjust == #rightLeft ifTrue:[ |
1375 a == #rightLeft ifTrue:[ |
1376 a := #right |
1376 a := #right |
1377 ] |
1377 ] |
1378 ] |
1378 ] |
1379 ] |
1379 ] |
1380 ]. |
1380 ]. |
1722 ! ! |
1722 ! ! |
1723 |
1723 |
1724 !Label class methodsFor:'documentation'! |
1724 !Label class methodsFor:'documentation'! |
1725 |
1725 |
1726 version |
1726 version |
1727 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.102 1999-05-26 13:43:46 cg Exp $' |
1727 ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.103 1999-06-10 16:16:15 cg Exp $' |
1728 ! ! |
1728 ! ! |