set counter 0
label .l -textvariable counter -bg grey77
proc countup {} {
    global counter

    incr counter
    after 1000 countup
}
pack .l -expand yes -fill both
countup