Tk Source Code

scrollbar-10.[12] fail on macOS as follows:

<verbatim>
==== scrollbar-10.1 <MouseWheel> event on scrollbar FAILED
==== Contents of test case:

    pack [text .t -yscrollcommand {.s set}] -side left
    for {set i 1} {$i < 100} {incr i} {.t insert end "Line $i\n"}
    pack [scrollbar .s -command {.t yview}] -fill y -expand 1 -side left
    update
    focus -force .s
    event generate .s <MouseWheel> -delta -120
    after 200 {set eventprocessed 1} ; vwait eventprocessed
    .t index @0,0

---- Result was:
77.0
---- Result should have been (exact matching):
5.0
==== scrollbar-10.1 FAILED



==== scrollbar-10.2 <MouseWheel> event on scrollbar FAILED
==== Contents of test case:

    pack [text .t -xscrollcommand {.s set} -wrap none] -side top
    for {set i 1} {$i < 100} {incr i} {.t insert end "Char $i "}
    pack [scrollbar .s -command {.t xview} -orient horizontal] -fill x -expand 1 -side top
    update
    focus -force .s
    event generate .s <Shift-MouseWheel> -delta -120
    after 200 {set eventprocessed 1} ; vwait eventprocessed
    .t index @0,0

---- Result was:
1.120
---- Result should have been (exact matching):
1.4
==== scrollbar-10.2 FAILED
</verbatim>