diff options
| author | culler <culler> | 2020-07-23 18:31:06 (GMT) |
|---|---|---|
| committer | culler <culler> | 2020-07-23 18:31:06 (GMT) |
| commit | 4615f0cfbe56b6b931f06600823609452ceae3f2 (patch) | |
| tree | e40e97fcc196a353c4f75023f5778fcdf889b3ee /tests | |
| parent | 80385f2de091d03d59900dc2acf17c23beeac2aa (diff) | |
| download | tk-4615f0cfbe56b6b931f06600823609452ceae3f2.zip tk-4615f0cfbe56b6b931f06600823609452ceae3f2.tar.gz tk-4615f0cfbe56b6b931f06600823609452ceae3f2.tar.bz2 | |
Adjust listbox-21.9
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/listbox.test | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/tests/listbox.test b/tests/listbox.test index 01cc397..17b6e6b 100644 --- a/tests/listbox.test +++ b/tests/listbox.test @@ -2663,19 +2663,18 @@ test listbox-21.9 {ListboxListVarProc, test hscrollbar after listvar mod} -setup destroy .l } -body { catch {unset x} - listbox .l -font $fixed -width 10 -xscrollcommand "record x" -listvar x set log {} + update idletasks + listbox .l -font $fixed -width 10 -xscrollcommand "record x" -listvar x pack .l - set timeout [after 500 {lappend log timeout1}] - vwait log + update idletasks lappend x "0000000000" - update + update idletasks lappend x "00000000000000000000" - update + update idletasks 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 |