diff options
| author | csaba <csaba> | 2023-12-02 09:39:37 (GMT) |
|---|---|---|
| committer | csaba <csaba> | 2023-12-02 09:39:37 (GMT) |
| commit | fa30d6e92c313f3f6cfb3d1a9f99da4c04fe4022 (patch) | |
| tree | 4ba2160dc3319866d67ddb76438a0f2870de9304 | |
| parent | 39ed53bbb13ea433f0663adea0ab5b1c3613acdd (diff) | |
| download | tk-fa30d6e92c313f3f6cfb3d1a9f99da4c04fe4022.zip tk-fa30d6e92c313f3f6cfb3d1a9f99da4c04fe4022.tar.gz tk-fa30d6e92c313f3f6cfb3d1a9f99da4c04fe4022.tar.bz2 | |
Updated the ttk::scrollbar test.
| -rw-r--r-- | tests/ttk/scrollbar.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/ttk/scrollbar.test b/tests/ttk/scrollbar.test index c65bb4a..9b6abee 100644 --- a/tests/ttk/scrollbar.test +++ b/tests/ttk/scrollbar.test @@ -79,6 +79,7 @@ test scrollbar-10.1.1 {<MouseWheel> event on scrollbar} -setup { pack [ttk::scrollbar .s -command {.t yview}] -fill y -expand 1 -side left update focus -force .s + event generate .s <Enter> event generate .s <MouseWheel> -delta -120 after 200 {set eventprocessed 1} ; vwait eventprocessed .t index @0,0 @@ -94,6 +95,7 @@ test scrollbar-10.2.1 {<Shift-MouseWheel> event on horizontal scrollbar} -setup pack [ttk::scrollbar .s -command {.t xview} -orient horizontal] -fill x -expand 1 -side top update focus -force .s + event generate .s <Enter> event generate .s <Shift-MouseWheel> -delta -120 after 200 {set eventprocessed 1} ; vwait eventprocessed .t index @0,0 @@ -108,6 +110,7 @@ test scrollbar-10.2.2 {<MouseWheel> event on horizontal scrollbar} -setup { pack [ttk::scrollbar .s -command {.t xview} -orient horizontal] -fill x -expand 1 -side top update focus -force .s + event generate .s <Enter> event generate .s <MouseWheel> -delta -120 after 200 {set eventprocessed 1} ; vwait eventprocessed .t index @0,0 |