# clock.tcl
proc every {ms body} {
eval $body
after $ms [list every $ms $body]
}
pack [label .l -textvar time -font {Tahoma 24}]
pack [button .b -text X -command exit]
every 1000 {set ::time [clock format [clock sec] -format %H:%M:%S]}
LV It probably would be best for whomever added the above to add a name and a EULA type statement indicating the code is allowed to be reused. - RS: I put it here in order to test whether pages with .tcl titles are still delivered as plain text (they aren't), and trying to have my XDA execute it somehow - but it didn't work :( And re licensing: doesn't Who owns the content of this Wiki tell it clearly enough?
Category Application | Category GUI | Category Date and Time