diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-05 08:51:11 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-05 08:51:11 (GMT) |
commit | d68dd76dda5d0c1fc5c495b0efcb63ad73d0bc40 (patch) | |
tree | 583ec386dfbb7fed964995e459b7d7f889fb476e /tests/text.test | |
parent | 44d078c5d21c220c383b630169a60230ee010434 (diff) | |
parent | bdc95807199b5fb2ad244fbd2a595825cdee1fc1 (diff) | |
download | tk-d68dd76dda5d0c1fc5c495b0efcb63ad73d0bc40.zip tk-d68dd76dda5d0c1fc5c495b0efcb63ad73d0bc40.tar.gz tk-d68dd76dda5d0c1fc5c495b0efcb63ad73d0bc40.tar.bz2 |
Merge 8.6
Diffstat (limited to 'tests/text.test')
-rw-r--r-- | tests/text.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/text.test b/tests/text.test index 3314fc9..ba5b4ff 100644 --- a/tests/text.test +++ b/tests/text.test @@ -2698,7 +2698,7 @@ test text-9.2.45 {TextWidgetCmd procedure, "count" option} -setup { set res {} } -body { for {set i 1} {$i < 5} {incr i} { - .t insert end "Line $i+++Line $i---Line $i///Line $i - This is Line [format %c [expr 64+$i]]\n" + .t insert end "Line $i+++Line $i---Line $i///Line $i - This is Line [format %c [expr {64+$i}]]\n" } .t tag configure hidden -elide true .t tag add hidden 2.15 3.10 @@ -2720,7 +2720,7 @@ test text-9.2.46 {TextWidgetCmd procedure, "count" option} -setup { for {set i 1} {$i < 5} {incr i} { # 0 1 2 3 4 # 012345 678901234 567890123 456789012 34567890123456789 - .mytop.t insert end "Line $i+++Line $i---Line $i///Line $i - This is Line [format %c [expr 64+$i]]\n" + .mytop.t insert end "Line $i+++Line $i---Line $i///Line $i - This is Line [format %c [expr {64+$i}]]\n" } .mytop.t tag configure hidden -elide true .mytop.t tag add hidden 2.30 3.10 @@ -6145,9 +6145,9 @@ test text-23.4 {TkTextGetTabs procedure} -setup { .t insert end "1\t2\t3\t4\t55.5" .t configure -tabs {100 right 200 left 300 center 400 numeric} update idletasks - list [expr [lindex [.t bbox 1.2] 0] + [lindex [.t bbox 1.2] 2]] \ + list [expr {[lindex [.t bbox 1.2] 0] + [lindex [.t bbox 1.2] 2]}] \ [lindex [.t bbox 1.4] 0] \ - [expr [lindex [.t bbox 1.6] 0] + [lindex [.t bbox 1.6] 2]/2] \ + [expr {[lindex [.t bbox 1.6] 0] + [lindex [.t bbox 1.6] 2]/2}] \ [lindex [.t bbox 1.10] 0] } -cleanup { destroy .t @@ -6159,9 +6159,9 @@ test text-23.5 {TkTextGetTabs procedure} -setup { .t insert end "1\t2\t3\t4\t55.5" .t configure -tabs {105 r 205 l 305 c 405 n} update idletasks - list [expr [lindex [.t bbox 1.2] 0] + [lindex [.t bbox 1.2] 2]] \ + list [expr {[lindex [.t bbox 1.2] 0] + [lindex [.t bbox 1.2] 2]}] \ [lindex [.t bbox 1.4] 0] \ - [expr [lindex [.t bbox 1.6] 0] + [lindex [.t bbox 1.6] 2]/2] \ + [expr {[lindex [.t bbox 1.6] 0] + [lindex [.t bbox 1.6] 2]/2}] \ [lindex [.t bbox 1.10] 0] } -cleanup { destroy .t |