diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-07-24 13:31:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-07-24 13:31:43 (GMT) |
| commit | 2c41264be7ab081b18b9a7dfb177e5835917c4bc (patch) | |
| tree | 069fbed18f1721ab746a35d2b22bad50ba433a8d /tests | |
| parent | f43c1f423cbbec13a2d262988c3e0d14b0a1dac2 (diff) | |
| download | tk-2c41264be7ab081b18b9a7dfb177e5835917c4bc.zip tk-2c41264be7ab081b18b9a7dfb177e5835917c4bc.tar.gz tk-2c41264be7ab081b18b9a7dfb177e5835917c4bc.tar.bz2 | |
(cherry-pick): Patch by Arjen sent to core 2018-09-21
Also, do some renumbering of mouse-buttons, such that at script level the XButtons appear to be at 4/5 while - internally - they are at 8/9.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/bind.test | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/tests/bind.test b/tests/bind.test index ebc39b7..87e8e03 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -5862,62 +5862,6 @@ test bind-27.7 {button names} -setup { } -cleanup { destroy .t.f } -result {<Button-5> {button 5}} -test bind-27.8 {button names} -setup { - frame .t.f -class Test -width 150 -height 100 - pack .t.f - focus -force .t.f - update -} -body { - bind .t.f <Button-6> {lappend x "button 6"} - set x [bind .t.f] - event generate .t.f <Button-6> - event generate .t.f <ButtonRelease-6> - set x -} -cleanup { - destroy .t.f -} -result {<Button-6> {button 6}} -test bind-27.9 {button names} -setup { - frame .t.f -class Test -width 150 -height 100 - pack .t.f - focus -force .t.f - update -} -body { - bind .t.f <Button-7> {lappend x "button 7"} - set x [bind .t.f] - event generate .t.f <Button-7> - event generate .t.f <ButtonRelease-7> - set x -} -cleanup { - destroy .t.f -} -result {<Button-7> {button 7}} -test bind-27.10 {button names} -setup { - frame .t.f -class Test -width 150 -height 100 - pack .t.f - focus -force .t.f - update -} -body { - bind .t.f <Button-8> {lappend x "button 8"} - set x [bind .t.f] - event generate .t.f <Button-8> - event generate .t.f <ButtonRelease-8> - set x -} -cleanup { - destroy .t.f -} -result {<Button-8> {button 8}} -test bind-27.11 {button names} -setup { - frame .t.f -class Test -width 150 -height 100 - pack .t.f - focus -force .t.f - update -} -body { - bind .t.f <Button-9> {lappend x "button 9"} - set x [bind .t.f] - event generate .t.f <Button-9> - event generate .t.f <ButtonRelease-9> - set x -} -cleanup { - destroy .t.f -} -result {<Button-9> {button 9}} test bind-28.1 {keysym names} -body { bind .t <Expose-a> foo |