diff options
| author | ericm <ericm> | 1999-11-24 00:20:13 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 1999-11-24 00:20:13 (GMT) |
| commit | be89e43c7fbc9554b9b1daa5a2ad02eb3be030b7 (patch) | |
| tree | 0bdfa001712e24cd9caf5fe282b7b63b9aa0ef1c /tests | |
| parent | b6cf1cf2288ef3a39ed7ff39ec16deb96f206f9a (diff) | |
| download | tk-be89e43c7fbc9554b9b1daa5a2ad02eb3be030b7.zip tk-be89e43c7fbc9554b9b1daa5a2ad02eb3be030b7.tar.gz tk-be89e43c7fbc9554b9b1daa5a2ad02eb3be030b7.tar.bz2 | |
Additions to update vertical scrollbar info for listboxes when listvar changes.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/listbox.test | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/tests/listbox.test b/tests/listbox.test index e41d9af..3a20c07 100644 --- a/tests/listbox.test +++ b/tests/listbox.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: listbox.test,v 1.9 1999/11/19 15:48:19 ericm Exp $ +# RCS: @(#) $Id: listbox.test,v 1.10 1999/11/24 00:20:14 ericm Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -1885,7 +1885,17 @@ test listbox-21.14 {listbox item configurations and listvar based inserts} { set x [list 1 2 3 4 a b c] .l itemcget 0 -fg } red - +test listbox-21.15 {ListboxListVarProc, update vertical scrollbar} { + catch {destroy .l} + catch {unset x} + set log {} + listbox .l -listvar x -yscrollcommand "record y" -font fixed -height 3 + pack .l + update + lappend x a b c d e f + update + set log +} [list {y 0 1} {y 0 0.5}] # UpdateHScrollbar test listbox-22.1 {UpdateHScrollbar} { catch {destroy .l} |