[HJG] 2012-02-02  Small and simple tcl-only program to show the time at some selected places around the world.

 # Worldtime-clock - http://wiki.tcl.tk/14375
 # HaJo Gurt - 2012-02-02

  catch {console show}
  catch {wm withdraw .}

  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

 #.

<<categories>>[Date and Time]