diff --git a/tests/ttk/scrollbar.test b/tests/ttk/scrollbar.test index c65bb4a8a..9b6abee75 100644 --- a/tests/ttk/scrollbar.test +++ b/tests/ttk/scrollbar.test @@ -79,6 +79,7 @@ test scrollbar-10.1.1 { event on scrollbar} -setup { pack [ttk::scrollbar .s -command {.t yview}] -fill y -expand 1 -side left update focus -force .s + event generate .s event generate .s -delta -120 after 200 {set eventprocessed 1} ; vwait eventprocessed .t index @0,0 @@ -94,6 +95,7 @@ test scrollbar-10.2.1 { 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 event generate .s -delta -120 after 200 {set eventprocessed 1} ; vwait eventprocessed .t index @0,0 @@ -108,6 +110,7 @@ test scrollbar-10.2.2 { 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 event generate .s -delta -120 after 200 {set eventprocessed 1} ; vwait eventprocessed .t index @0,0