summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-10-19 20:32:57 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-10-19 20:32:57 (GMT)
commit6bc08bebbd4985473021dabe1e9a6c9128e58d99 (patch)
tree11a2eae73934045a5d64b63c9def6e7d52801b9c
parent780118cbac5240ba602ff056b5bd34cb6a57046c (diff)
downloadtk-6bc08bebbd4985473021dabe1e9a6c9128e58d99.zip
tk-6bc08bebbd4985473021dabe1e9a6c9128e58d99.tar.gz
tk-6bc08bebbd4985473021dabe1e9a6c9128e58d99.tar.bz2
Robustified text-9.2.46, which failed on Linux Debian 6.0 (bug [cc0ba31920])
-rw-r--r--tests/text.test15
1 files changed, 8 insertions, 7 deletions
diff --git a/tests/text.test b/tests/text.test
index a58ffc2..0909d2f 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -714,22 +714,23 @@ test text-9.2.45 {TextWidgetCmd procedure, "count" option} -setup {
} -result {0}
test text-9.2.46 {TextWidgetCmd procedure, "count" option} -setup {
toplevel .mytop
- pack [text .mytop.t]
- wm geometry .mytop 100x300+0+0
+ pack [text .mytop.t -font TkFixedFont -bd 0 -padx 0 -wrap char]
+ set spec [font measure TkFixedFont "Line 1+++Line 1---Li"] ; # 20 chars
+ append spec x300+0+0
+ wm geometry .mytop $spec
.mytop.t delete 1.0 end
update
set res {}
} -body {
for {set i 1} {$i < 5} {incr i} {
- # 0 1 2 3 4
- # 012345 678901234 567890123 456789012 34567890123456789
+ # 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 tag configure hidden -elide true
- .mytop.t tag add hidden 2.20 3.10
- .mytop.t configure -wrap char
+ .mytop.t tag add hidden 2.30 3.10
lappend res [.mytop.t count -displaylines 2.0 3.0]
- lappend res [.mytop.t count -displaylines 2.0 3.40]
+ lappend res [.mytop.t count -displaylines 2.0 3.50]
} -cleanup {
destroy .mytop
} -result {1 3}