diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-05 07:23:17 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-05 07:23:17 (GMT) |
commit | bdc95807199b5fb2ad244fbd2a595825cdee1fc1 (patch) | |
tree | e18f2274df06f9ee7e6d70c2d58b244fba0192c1 /tests/textTag.test | |
parent | 884c9570fffd13b20d87151fe979e3e09edd5ed8 (diff) | |
download | tk-bdc95807199b5fb2ad244fbd2a595825cdee1fc1.zip tk-bdc95807199b5fb2ad244fbd2a595825cdee1fc1.tar.gz tk-bdc95807199b5fb2ad244fbd2a595825cdee1fc1.tar.bz2 |
Use single-argument "expr" as much as possible. Not complete yet, but most trivial places are done.
Diffstat (limited to 'tests/textTag.test')
-rw-r--r-- | tests/textTag.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/textTag.test b/tests/textTag.test index 9bab5fb..5761abc 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -1477,14 +1477,14 @@ test textTag-14.4 {SortTags} -constraints haveCourier12 -setup { set c [.t bbox 2.1] -set x1 [expr [lindex $c 0] + [lindex $c 2]/2] -set y1 [expr [lindex $c 1] + [lindex $c 3]/2] +set x1 [expr {[lindex $c 0] + [lindex $c 2]/2}] +set y1 [expr {[lindex $c 1] + [lindex $c 3]/2}] set c [.t bbox 3.2] -set x2 [expr [lindex $c 0] + [lindex $c 2]/2] -set y2 [expr [lindex $c 1] + [lindex $c 3]/2] +set x2 [expr {[lindex $c 0] + [lindex $c 2]/2}] +set y2 [expr {[lindex $c 1] + [lindex $c 3]/2}] set c [.t bbox 4.3] -set x3 [expr [lindex $c 0] + [lindex $c 2]/2] -set y3 [expr [lindex $c 1] + [lindex $c 3]/2] +set x3 [expr {[lindex $c 0] + [lindex $c 2]/2}] +set y3 [expr {[lindex $c 1] + [lindex $c 3]/2}] test textTag-15.1 {TkTextBindProc} -constraints haveCourier12 -setup { .t tag delete x y |