summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorericm <ericm>1999-11-24 00:20:13 (GMT)
committerericm <ericm>1999-11-24 00:20:13 (GMT)
commitbe89e43c7fbc9554b9b1daa5a2ad02eb3be030b7 (patch)
tree0bdfa001712e24cd9caf5fe282b7b63b9aa0ef1c /tests
parentb6cf1cf2288ef3a39ed7ff39ec16deb96f206f9a (diff)
downloadtk-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.test14
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}