diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-08 16:50:08 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-08 16:50:08 (GMT) |
| commit | 32c7567edaa06c78eac386fb179c7e2c5f08e0e0 (patch) | |
| tree | 02c69616d494298ac774319068e12397a6cc8823 /tests | |
| parent | 2b441609377c94239f63346bf28b92db53c36a42 (diff) | |
| parent | 244ca66f62cd0100a89d7e074422f0aa58770838 (diff) | |
| download | tk-32c7567edaa06c78eac386fb179c7e2c5f08e0e0.zip tk-32c7567edaa06c78eac386fb179c7e2c5f08e0e0.tar.gz tk-32c7567edaa06c78eac386fb179c7e2c5f08e0e0.tar.bz2 | |
[26889b3e7b]: Make the uniform mouse wheel event handling more standard-conform
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/scrollbar.test | 8 | ||||
| -rw-r--r-- | tests/ttk/scrollbar.test | 6 |
2 files changed, 7 insertions, 7 deletions
diff --git a/tests/scrollbar.test b/tests/scrollbar.test index 24c6f43..f471b15 100644 --- a/tests/scrollbar.test +++ b/tests/scrollbar.test @@ -702,7 +702,7 @@ test scrollbar-10.1 {<MouseWheel> event on scrollbar} -setup { .t index @0,0 } -cleanup { destroy .t .s -} -result {5.0} +} -result {4.0} test scrollbar-10.2 {<MouseWheel> event on scrollbar} -setup { destroy .t .s @@ -717,8 +717,8 @@ test scrollbar-10.2 {<MouseWheel> event on scrollbar} -setup { .t index @0,0 } -cleanup { destroy .t .s -} -result {1.4} -test scrollbar-10.2.3 {<MouseWheel> event on horizontal scrollbar} -setup { +} -result {1.3} +test scrollbar-10.3 {<MouseWheel> event on horizontal scrollbar} -setup { destroy .t .s } -body { pack [text .t -xscrollcommand {.s set} -wrap none] -side top @@ -731,7 +731,7 @@ test scrollbar-10.2.3 {<MouseWheel> event on horizontal scrollbar} -setup { .t index @0,0 } -cleanup { destroy .t .s -} -result {1.4} +} -result {1.3} test scrollbar-11.1 {bug fix: [011706ec42] Scrollbar unsafe wrt widget destruction} -body { proc destroy_scrollbar {} { diff --git a/tests/ttk/scrollbar.test b/tests/ttk/scrollbar.test index e4b2959..6d35bea 100644 --- a/tests/ttk/scrollbar.test +++ b/tests/ttk/scrollbar.test @@ -84,7 +84,7 @@ test scrollbar-10.1.1 {<MouseWheel> event on scrollbar} -setup { .t index @0,0 } -cleanup { destroy .t .s -} -result {5.0} +} -result {4.0} test scrollbar-10.2.1 {<Shift-MouseWheel> event on horizontal scrollbar} -setup { destroy .t .s @@ -99,7 +99,7 @@ test scrollbar-10.2.1 {<Shift-MouseWheel> event on horizontal scrollbar} -setup .t index @0,0 } -cleanup { destroy .t .s -} -result {1.4} +} -result {1.3} test scrollbar-10.2.2 {<MouseWheel> event on horizontal scrollbar} -setup { destroy .t .s } -body { @@ -113,7 +113,7 @@ test scrollbar-10.2.2 {<MouseWheel> event on horizontal scrollbar} -setup { .t index @0,0 } -cleanup { destroy .t .s -} -result {1.4} +} -result {1.3} test scrollbar-11.1 "style command" -body { ttk::scrollbar .wv ; # default is -orient vertical |