--- a/RadioButton.st Mon Aug 19 18:12:22 2002 +0200
+++ b/RadioButton.st Mon Aug 19 18:23:41 2002 +0200
@@ -10,10 +10,14 @@
hereby transferred.
"
+"{ Package: 'stx:libwidg' }"
+
Toggle subclass:#RadioButton
instanceVariableNames:'buttonStyle buttonOnLevel buttonOffLevel buttonOffImage
buttonOnImage'
classVariableNames:'DefaultButtonStyle DefaultActiveLevel DefaultPassiveLevel
+ DefaultForegroundColor DefaultBackgroundColor
+ DefaultActiveForegroundColor DefaultActiveBackgroundColor
MotifCheckBotForm MotifCheckTopForm MotifCheckInnerForm
Round3DCheckBotForm Round3DCheckTopForm Round3DCheckInnerForm
RoundHalfLightForm RoundOffForm RoundOnForm'
@@ -490,7 +494,12 @@
#'radioButton.activeImageFile'
#'radioButton.activeImage'
#'radioButton.passiveImageFile'
- #'radioButton.passiveImage')>
+ #'radioButton.passiveImage'
+ #'radioButton.foregroundColor'
+ #'radioButton.backgroundColor'
+ #'radioButton.activeForegroundColor'
+ #'radioButton.activeBackgroundColor'
+ )>
|l f|
@@ -501,6 +510,12 @@
DefaultButtonStyle == #motif ifTrue:[l := 1].
DefaultPassiveLevel := StyleSheet at:#'radioButton.passiveLevel' default:l.
+ DefaultForegroundColor := StyleSheet at:#'radioButton.foregroundColor'.
+ DefaultBackgroundColor := StyleSheet at:#'radioButton.backgroundColor'.
+
+ DefaultActiveForegroundColor := StyleSheet at:#'radioButton.activeForegroundColor'.
+ DefaultActiveBackgroundColor := StyleSheet at:#'radioButton.activeBackgroundColor'.
+
RoundOnForm := RoundOffForm := nil.
f := StyleSheet at:#'radioButton.activeImageFile'.
@@ -704,6 +719,9 @@
super initStyle.
+ fgColor := DefaultForegroundColor ? fgColor.
+ bgColor := DefaultBackgroundColor ? bgColor.
+ activeBgColor := DefaultActiveBackgroundColor ? activeBgColor.
enteredBgColor := bgColor.
buttonStyle isNil ifTrue:[
@@ -787,5 +805,5 @@
!RadioButton class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.33 1999-12-09 11:13:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.34 2002-08-19 16:23:41 cg Exp $'
! !