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
}

Discover more from Tips and Hints for Aerospace Engineers

Subscribe now to keep reading and get access to the full archive.

Continue reading