#!/bin/sh
# This grossness allows wish to be anywhere in PATH: \
exec wish -f "$0" ${1+"$@"}

# There is a fake resource, wmGeometry (class WmGeometry), whose value
# is passed to wm geometry.  It defaults to +0+0.
option add *wmGeometry +0+0 startupFile
wm geometry . [option get . wmGeometry WmGeometry]

label .l -text {---} -width 5
pack .l

set delay 0.1


set delay_mch [expr int($delay * 1000)]
set delay_msec [expr int(86000 * $delay)]

proc refresh {} {
    upvar delay_msec delay_msec delay_mch delay_mch
    set time [exec chrons]
    .l configure -text [format %3.1f [exec chrons]]
    update

    # So it updates as close to the real update time as possible
    set delay_time [expr { $delay_msec + ($delay_msec
                        - int((int($time * 1000) % $delay_mch) * 86000))
                                     % $delay_msec}]
    after $delay_time refresh
}

refresh