diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-10 08:10:37 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-10 08:10:37 (GMT) |
commit | 39447d34159fdbb309e60c257463f4e301a4357b (patch) | |
tree | 8364dbe8ff125e9aceed0c1f640a9497c5c03dbb /tests/listbox.test | |
parent | cbaffee229fcb25874c1a203cce2c365bfd7626e (diff) | |
parent | 56de2058b0be5410f7b9f6c913c1a70b418137a6 (diff) | |
download | tk-39447d34159fdbb309e60c257463f4e301a4357b.zip tk-39447d34159fdbb309e60c257463f4e301a4357b.tar.gz tk-39447d34159fdbb309e60c257463f4e301a4357b.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tests/listbox.test')
-rw-r--r-- | tests/listbox.test | 30 |
1 files changed, 20 insertions, 10 deletions
diff --git a/tests/listbox.test b/tests/listbox.test index 68cb5d8..77d75b4 100644 --- a/tests/listbox.test +++ b/tests/listbox.test @@ -2209,6 +2209,7 @@ test listbox-11.5 {ChangeListboxView procedure} -setup { } -body { listbox .l -height 5 -yscrollcommand "record y" pack .l + update .l insert 0 a b c d e f g h i j .l yview 3 update @@ -2662,10 +2663,11 @@ test listbox-21.9 {ListboxListVarProc, test hscrollbar after listvar mod} -setup destroy .l } -body { catch {unset x} - set log {} listbox .l -font $fixed -width 10 -xscrollcommand "record x" -listvar x + set log {} pack .l - update + set timeout [after 500 {set log timeout}] + vwait log lappend x "0000000000" update lappend x "00000000000000000000" @@ -2673,15 +2675,17 @@ test listbox-21.9 {ListboxListVarProc, test hscrollbar after listvar mod} -setup set log } -cleanup { destroy .l + after cancel $timeout } -result [list {x 0 1} {x 0 1} {x 0 0.5}] test listbox-21.10 {ListboxListVarProc, test hscrollbar after listvar mod} -setup { destroy .l } -body { catch {unset x} - set log {} listbox .l -font $fixed -width 10 -xscrollcommand "record x" -listvar x + set log {} pack .l - update + set timeout [after 500 {set log timeout}] + vwait log lappend x "0000000000" update lappend x "00000000000000000000" @@ -2691,6 +2695,7 @@ test listbox-21.10 {ListboxListVarProc, test hscrollbar after listvar mod} -setu set log } -cleanup { destroy .l + 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 @@ -2755,15 +2760,19 @@ test listbox-21.15 {ListboxListVarProc, update vertical scrollbar} -setup { destroy .l } -body { catch {unset x} + listbox .l -font $fixed -height 3 -yscrollcommand "record y" -listvar x + update set log {} - listbox .l -listvar x -yscrollcommand "record y" -font fixed -height 3 pack .l + set timeout [after 500 {set log timeout}] + vwait log update lappend x a b c d e f - update + vwait log set log } -cleanup { destroy .l + after cancel $timeout } -result [list {y 0 1} {y 0 0.5}] test listbox-21.16 {ListboxListVarProc, update vertical scrollbar} -setup { destroy .l @@ -2771,7 +2780,6 @@ test listbox-21.16 {ListboxListVarProc, update vertical scrollbar} -setup { catch {unset x} listbox .l -listvar x -height 3 pack .l - update set x [list 0 1 2 3 4 5] .l yview scroll 3 units update @@ -2792,17 +2800,19 @@ test listbox-21.16 {ListboxListVarProc, update vertical scrollbar} -setup { test listbox-22.1 {UpdateHScrollbar} -setup { destroy .l } -body { - set log {} listbox .l -font $fixed -width 10 -xscrollcommand "record x" + set log {} pack .l - update + set timeout [after 500 {set log timeout}] + vwait log .l insert end "0000000000" update .l insert end "00000000000000000000" - update + vwait log set log } -cleanup { destroy .l + after cancel $timeout } -result [list {x 0 1} {x 0 1} {x 0 0.5}] |