Tcl Source Code

For me, it is a big improvement, if the after events would be independent on the wall-clock. I use devices not connected to the internet and the wall-clock is set manualy. This causes, that after events are delayed by the wall-clock offset, if set back, and fire sonner by the offset, if set foreward. In practice, the gui freezes, as its update depends on continuous after events.

For me, this is the top anoying bug of Tcl/Tk and work-arounds are very difficult. When I allow the user to change the wall-clock by an Administrator dialog, I fire 70 after events in a one minuite raster in the future, to hope, that at least, one fires after one minuite after the wall clock change.

There were huge objections to change this.

Ticket [3328635] handles this for the Unix case, but has a MS-Windows solution in its bugfix-branch tkt3328635-posix-monotonic-clock https://core.tcl-lang.org/tcl/timeline?r=tkt3328635-posix-monotonic-clock&c=2025-05-13+05%3A42%3A00. Thanks, Christian, for this work.

The purpose of this ticket is to extract the MS-Windows part of this ticket.

An issue of this ticket is TIP 233 https://core.tcl-lang.org/tips/doc/trunk/tip/233.md:

Christian has deactivated this TIP in his patch and calls it not functional and not documented. Andreas, the TIP author, is willing to look into this. To his words, the use-case of this TIP is not compatible to a monotonic clock. If this TIP should only influence the wall clock (e.g. the clock command), and not the after command, then this could be done.

I am not sure how to proceed. I only fear, that this may be lost. Due to that risk, all other great proposals and platforms are not included here.

Implementation branch is [1e2c6ce4-mswin-monotonic-clock] starting with checkin [8ea9c4081c].

Here is my test recipe:

proc pt sec10 {
    puts "sec10=$sec10, clock=[expr {[clock seconds]-$::now}]"
}
set now [clock seconds]
for {set sec 10} {$sec<=180} {incr sec 10} {after [expr {$sec*1000}] [list pt $sec]}
vwait forever

Then, I start cmd.exe as Administrator and type "time" and I advance the time by 10 minuites. Alternatively, you may hibernate the computer and wake-it up back,

The clock-output should have a jump, but the one minuite frequency of the output should remain.

Thanks for all, Harald

Now in TIP 723: https://core.tcl-lang.org/tips/doc/trunk/tip/723.md

Thanks for all, Harald