set field1 [radiobutton .field1 -disabledforeground green -state disabled]
set field2 [radiobutton .field2 -disabledforeground green -state disabled]
set field3 [radiobutton .field3 -disabledforeground green -state disabled]
set field4 [radiobutton .field4 -disabledforeground green -state disabled]
grid $field1 $field2 $field3 $field4
bind .field1 <Map> [list after 2000 {changeDisabledColor %W red}]
bind .field2 <Map> [list after 4000 {changeDisabledColor %W red}]
bind .field3 <Map> [list after 6000 {changeDisabledColor %W red}]
bind .field4 <Map> [list after 8000 {changeDisabledColor %W red}]
proc changeDisabledColor {w color} {
$w configure -disabledforeground $color
}
Like this:
Like Loading...
Related
Recent Comments