set checkvar 0
proc tick {} {
    global checkvar

    if {$checkvar} {
	set checkvar 0
    } else {
	set checkvar 1
    }
    after 1000 tick
}
checkbutton .b -text "Very Busy?" -variable checkvar -bg grey77
pack .b -expand y -fill both
tick