equal
deleted
inserted
replaced
557 |
557 |
558 |l fetchImage| |
558 |l fetchImage| |
559 |
559 |
560 DefaultBorderWidth := StyleSheet at:#'radioButton.borderWidth'. |
560 DefaultBorderWidth := StyleSheet at:#'radioButton.borderWidth'. |
561 |
561 |
562 DefaultFont := Label defaultFont. "/ StyleSheet fontAt:'label.font'. |
562 DefaultFont := StyleSheet fontAt:'label.font'. |
563 DefaultButtonStyle := StyleSheet at:#'radioButton.style'. |
563 DefaultButtonStyle := StyleSheet at:#'radioButton.style'. |
564 l := -1. |
564 l := -1. |
565 DefaultButtonStyle == #round2D ifTrue:[l := 0]. |
565 DefaultButtonStyle == #round2D ifTrue:[l := 0]. |
566 DefaultActiveLevel := StyleSheet at:#'radioButton.activeLevel' default:l. |
566 DefaultActiveLevel := StyleSheet at:#'radioButton.activeLevel' default:l. |
567 DefaultButtonStyle == #motif ifTrue:[l := 1]. |
567 DefaultButtonStyle == #motif ifTrue:[l := 1]. |
1101 ! ! |
1101 ! ! |
1102 |
1102 |
1103 !RadioButton class methodsFor:'documentation'! |
1103 !RadioButton class methodsFor:'documentation'! |
1104 |
1104 |
1105 version |
1105 version |
1106 ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.52 2013-09-04 21:14:20 cg Exp $' |
1106 ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.53 2013-09-04 21:45:24 cg Exp $' |
1107 ! |
1107 ! |
1108 |
1108 |
1109 version_CVS |
1109 version_CVS |
1110 ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.52 2013-09-04 21:14:20 cg Exp $' |
1110 ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.53 2013-09-04 21:45:24 cg Exp $' |
1111 ! ! |
1111 ! ! |
1112 |
1112 |