. configure -bg grey77
set date [clock format [clock seconds]]
label .l -textvariable date -bg grey77
proc tick {} {
    global date

    set date [clock format [clock seconds]]
    after 1000 tick
}
tick
pack .l -expand y -fill both