diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
| commit | 0d5336db012f45753abace489f18f0ca299c6961 (patch) | |
| tree | b1bf3280a9046df99226158978502eeb26f5b0a3 /tests/listbox.test | |
| parent | e97381a6d921de403516d5b761539a450f4af83c (diff) | |
| parent | 1320b8a2a9c1269a345d44d673a7a35707fbbe9c (diff) | |
| download | tk-core-tip-626.zip tk-core-tip-626.tar.gz tk-core-tip-626.tar.bz2 | |
Merge 9.0core-tip-626
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 c02f389..c4b7c15 100644 --- a/tests/listbox.test +++ b/tests/listbox.test @@ -107,7 +107,7 @@ test listbox-1.9 {configuration options} -body { list [lindex [.l configure -borderwidth] 4] [.l cget -borderwidth] } -cleanup { .l configure -borderwidth [lindex [.l configure -borderwidth] 3] -} -result {1 1} +} -result {1.3 1.3} test listbox-1.10 {configuration options} -body { .l configure -borderwidth badValue } -returnCodes error -result {expected screen distance but got "badValue"} @@ -242,7 +242,7 @@ test listbox-1.37 {configuration options} -body { list [lindex [.l configure -selectborderwidth] 4] [.l cget -selectborderwidth] } -cleanup { .l configure -selectborderwidth [lindex [.l configure -selectborderwidth] 3] -} -result {1 1} +} -result {1.3 1.3} test listbox-1.38 {configuration options} -body { .l configure -selectborderwidth badValue } -returnCodes error -result {expected screen distance but got "badValue"} @@ -502,7 +502,7 @@ test listbox-3.18b {ListboxWidgetCmd procedure, "bbox" option, justified, non-de lappend lres [.top.l bbox 0] [.top.l bbox 1] [.top.l bbox 2] set res 1 for {set i 0} {$i < [llength $lres]} {incr i 4} { - set res [expr {$res * [expr {[lindex $lres $i] >= 0}] }] + set res [expr {$res * [expr {[lindex $lres $i] >= 0}] }] } set res } -cleanup { @@ -3188,7 +3188,7 @@ test listbox-32.1 {Bug [5d991b822e]} { set var INIT listbox .b -listvariable var trace add variable var unset {apply {args { - .b configure -listvariable {} + .b configure -listvariable {} }}} pack .b bind .b <Configure> {unset var} @@ -3201,7 +3201,7 @@ test listbox-32.2 {Bug [5d991b822e]} { set var INIT listbox .b -listvariable var trace add variable var unset {apply {args { - .b configure -listvariable new + .b configure -listvariable new }}} pack .b bind .b <Configure> {unset -nocomplain var} |