equal
deleted
inserted
replaced
1047 ] |
1047 ] |
1048 |
1048 |
1049 "Modified: / 3.11.1997 / 18:17:58 / cg" |
1049 "Modified: / 3.11.1997 / 18:17:58 / cg" |
1050 ! |
1050 ! |
1051 |
1051 |
1052 computeLabelSize |
|
1053 "compute the extent needed to hold the label plus the lamp" |
|
1054 |
|
1055 super computeLabelSize. |
|
1056 buttonStyle notNil ifTrue:[ |
|
1057 labelWidth := labelWidth + 15 |
|
1058 ] |
|
1059 ! |
|
1060 |
|
1061 lampImageHeight |
1052 lampImageHeight |
1062 buttonStyle isNil ifTrue:[^ super lampImageHeight]. |
1053 buttonStyle isNil ifTrue:[^ super lampImageHeight]. |
1063 ^ 15 |
1054 ^ 15 |
1064 |
1055 |
1065 "Created: / 3.11.1997 / 14:27:27 / cg" |
1056 "Created: / 3.11.1997 / 14:27:27 / cg" |
1070 buttonStyle isNil ifTrue:[^ super lampImageWidth]. |
1061 buttonStyle isNil ifTrue:[^ super lampImageWidth]. |
1071 ^ 15 |
1062 ^ 15 |
1072 |
1063 |
1073 "Created: / 3.11.1997 / 14:27:23 / cg" |
1064 "Created: / 3.11.1997 / 14:27:23 / cg" |
1074 "Modified: / 3.11.1997 / 18:10:50 / cg" |
1065 "Modified: / 3.11.1997 / 18:10:50 / cg" |
|
1066 ! |
|
1067 |
|
1068 rawLabelSizeOf:aLogo |
|
1069 "compute the extent needed to hold the label plus the lamp" |
|
1070 |
|
1071 |ext| |
|
1072 |
|
1073 ext := super rawLabelSizeOf:aLogo. |
|
1074 buttonStyle notNil ifTrue:[ |
|
1075 ^ ext + (15 @ 0) |
|
1076 ]. |
|
1077 ^ ext |
1075 ! ! |
1078 ! ! |
1076 |
1079 |
1077 !RadioButton methodsFor:'queries'! |
1080 !RadioButton methodsFor:'queries'! |
1078 |
1081 |
1079 is3D |
1082 is3D |
1084 ! ! |
1087 ! ! |
1085 |
1088 |
1086 !RadioButton class methodsFor:'documentation'! |
1089 !RadioButton class methodsFor:'documentation'! |
1087 |
1090 |
1088 version |
1091 version |
1089 ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.47 2009-03-23 09:59:52 cg Exp $' |
1092 ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.48 2009-10-21 14:24:26 cg Exp $' |
|
1093 ! |
|
1094 |
|
1095 version_CVS |
|
1096 ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.48 2009-10-21 14:24:26 cg Exp $' |
1090 ! ! |
1097 ! ! |