proc setTime {} {
    .l configure -text [clock format [clock seconds]]
}
button .b -text "Current Time" -command setTime
label .l -text [clock format [clock seconds]]
pack .l -fill x
pack .b -fill both -expand y