HJG 2012-02-02 Small and simple program to show the time at some selected places around the world. With some tweaks to the tcl-console.
# Worldtime-clock - http://wiki.tcl.tk/14375
# HaJo Gurt - 2012-02-02
catch {console show}
catch {wm withdraw .}
#console eval {wm geometry . 56x25}
# Resize console & position it at top-right corner on screen, for 1024x768:
console eval {wm geometry . 56x25+550+0}
console eval {.console config -bg grey -fg blue}
proc q {} {exit}
proc w {} {
puts "Time around the world:"
foreach tz {
:Pacific/Honolulu
:America/Los_Angeles
:America/Chicago
:America/New_York
:UTC
:Europe/Berlin
:Africa/Cairo
:Europe/Moscow
:Asia/Tokyo
:Australia/Canberra } {
set td [clock format [clock seconds] \
-format "%H:%M:%S %Y-%m-%d %a %z" -timezone $tz]
puts [format "%-22s %s" $tz $td]
}
}
console title "Worldtime - w to refresh, q to quit"
w
#.Result:
Time around the world: :Pacific/Honolulu 10:25:00 2012-02-13 Mon -1000 :America/Los_Angeles 12:25:00 2012-02-13 Mon -0800 :America/Chicago 14:25:00 2012-02-13 Mon -0600 :America/New_York 15:25:00 2012-02-13 Mon -0500 :UTC 20:25:00 2012-02-13 Mon +0000 :Europe/Berlin 21:25:00 2012-02-13 Mon +0100 :Africa/Cairo 22:25:00 2012-02-13 Mon +0200 :Europe/Moscow 23:25:00 2012-02-13 Mon +0300 :Asia/Tokyo 05:25:00 2012-02-14 Tue +0900 :Australia/Canberra 07:25:00 2012-02-14 Tue +1100
See also: Wallclock - clock format - timezone - Windows wish console