set labeltext 0
label .l -textvariable labeltext -bg grey55
proc tick {} {
    global labeltext

    after 1000 tick
    incr labeltext
}
pack .l -expand yes -fill x
tick