diff options
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} |