It has a fatal flaw in that it only handles timezones that are a
multiple of an hour. It's really only needed with Tk8.5, where
the clock format command has been reimplemented in Tcl and is much
slower than in Tk8.4.
Signed-off-by: Paul Mackerras <paulus@samba.org>
}
proc formatdate {d} {
- global hours nhours tfd
+ global hours nhours tfd fastdate
+ if {!$fastdate} {
+ return [clock format $d -format "%Y-%m-%d %H:%M:%S"]
+ }
set hr [expr {$d / 3600}]
set ms [expr {$d % 3600}]
if {![info exists hours($hr)]} {
set maxgraphpct 50
set maxwidth 16
set revlistorder 0
+set fastdate 0
set colors {green red blue magenta darkgrey brown orange}