Posted to tcl by scoofy at Sun Mar 30 08:18:28 GMT 2014view pretty
proc toNextTick {} { set interval 3600 set now [clock seconds] set quantized [expr {int($now/$interval)*$interval}] return [expr {$quantized+$interval-$now}] } proc waitNextTick {} { after [expr {[toNextTick]*1000}] }