Posted to tcl by scoofy at Sun Mar 30 08:18:28 GMT 2014view raw
- 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}]
- }