diff options
| author | marc_culler <marc.culler@gmail.com> | 2020-07-15 20:16:47 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2020-07-15 20:16:47 (GMT) |
| commit | 4819d3849f45e832a8b26c7906c36f66472ef3b9 (patch) | |
| tree | b522a0490ce6722b320e2d240f6e8c66d23e158b /tests/listbox.test | |
| parent | 4722f9f501efe0141837f64c3c63cc13705396e5 (diff) | |
| download | tk-4819d3849f45e832a8b26c7906c36f66472ef3b9.zip tk-4819d3849f45e832a8b26c7906c36f66472ef3b9.tar.gz tk-4819d3849f45e832a8b26c7906c36f66472ef3b9.tar.bz2 | |
macOS: remove unneeded code observed in [7ebdd17974], remove tkMacOSXFlushWindows, make XSync do nothing except process timer events.
Diffstat (limited to 'tests/listbox.test')
| -rw-r--r-- | tests/listbox.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/listbox.test b/tests/listbox.test index 0917e84..01cc397 100644 --- a/tests/listbox.test +++ b/tests/listbox.test @@ -2666,7 +2666,7 @@ test listbox-21.9 {ListboxListVarProc, test hscrollbar after listvar mod} -setup listbox .l -font $fixed -width 10 -xscrollcommand "record x" -listvar x set log {} pack .l - set timeout [after 500 {set log timeout}] + set timeout [after 500 {lappend log timeout1}] vwait log lappend x "0000000000" update @@ -2684,7 +2684,7 @@ test listbox-21.10 {ListboxListVarProc, test hscrollbar after listvar mod} -setu listbox .l -font $fixed -width 10 -xscrollcommand "record x" -listvar x set log {} pack .l - set timeout [after 500 {set log timeout}] + set timeout [after 500 {lappend log timeout2}] vwait log lappend x "0000000000" update @@ -2695,7 +2695,7 @@ test listbox-21.10 {ListboxListVarProc, test hscrollbar after listvar mod} -setu set log } -cleanup { destroy .l - after cancel timeout + after cancel $timeout } -result [list {x 0 1} {x 0 1} {x 0 0.5} {x 0 1}] test listbox-21.11 {ListboxListVarProc, bad list} -setup { destroy .l @@ -2764,7 +2764,7 @@ test listbox-21.15 {ListboxListVarProc, update vertical scrollbar} -setup { update set log {} pack .l - set timeout [after 500 {set log timeout}] + set timeout [after 500 {lappend log timeout3}] vwait log update lappend x a b c d e f @@ -2804,7 +2804,7 @@ test listbox-22.1 {UpdateHScrollbar} -setup { pack .l update idletasks set log {} - set timeout [after 500 {set log timeout}] + set timeout [after 500 {lappend log timeout4}] .l insert end "0000000000" vwait log .l insert end "00000000000000000000" |