Tk Source Code

Sorry, bad news.

On Windows Vista, at [18c2efa9], bind-22.46 still fails (and the corresponding short test script I provided on Oct 30th, 2018 as well). Moreover bind-15.23 is now failing as well, which was not the case before [18c2efa9].

<verbatim>
==== bind-15.23 MatchPatterns procedure, time wrap-around FAILED
==== Contents of test case:

    bind .t.f <Double-1> {set x 1}
    set x 0
    event generate .t.f <Button-1> -time -100
    event generate .t.f <Button-1> -time 500
    event generate .t.f <ButtonRelease-1>
    return $x

---- Result was:
1
---- Result should have been (exact matching):
0
==== bind-15.23 FAILED


==== bind-22.46 HandleEventGenerate: options <Key> -keycode 20 FAILED
==== Contents of test case:

    bind .t.f <Key> "lappend x %k"
    event generate .t.f <Key> -keycode 20
    return $x

---- Result was:

---- Result should have been (exact matching):
20
==== bind-22.46 FAILED
</verbatim>