diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-01-12 13:38:21 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-01-12 13:38:21 (GMT) |
| commit | 68f17ab967c493970c0fd1277ecf5abe9dd8e9a6 (patch) | |
| tree | 0cfd856549587ccb0a9b07a805eb0ea603345f54 /tests | |
| parent | 2dcb9465893d9ea49455671e6ad778eaba85342f (diff) | |
| download | tk-68f17ab967c493970c0fd1277ecf5abe9dd8e9a6.zip tk-68f17ab967c493970c0fd1277ecf5abe9dd8e9a6.tar.gz tk-68f17ab967c493970c0fd1277ecf5abe9dd8e9a6.tar.bz2 | |
TIP#260 implementation
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/canvText.test | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/tests/canvText.test b/tests/canvText.test index d8482b9..1650f62 100644 --- a/tests/canvText.test +++ b/tests/canvText.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvText.test,v 1.15 2004/08/09 23:45:57 mdejong Exp $ +# RCS: @(#) $Id: canvText.test,v 1.16 2006/01/12 13:38:22 dkf Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -33,6 +33,7 @@ foreach test { {-stipple gray50 gray50 xyz {bitmap "xyz" not defined}} {-tags {test a b c} {test a b c} {} {}} {-text xyz xyz {} {}} + {-underline 0 0 xyz {expected integer but got "xyz"}} {-width 6 6 xyz {bad screen distance "xyz"}} } { lassign $test name goodValue goodResult badValue badResult @@ -401,7 +402,7 @@ test canvText-9.15 {TextInsert procedure: cursor doesn't move} { .c dchars test 7 9 .c index test insert } {5} - + test canvText-10.1 {TextToPoint procedure} { .c coords test 0 0 .c itemconfig test -text 0 -anchor center @@ -430,7 +431,7 @@ test canvText-13.1 {TranslateText procedure} { .c move all 10 10 .c coords test } {110.0 110.0} - + .c itemconfig test -text "abcdefghijklmno" -anchor nw .c select from test 5 .c select to test 8 @@ -479,7 +480,7 @@ test canvText-17.1 {TextToPostscript procedure} { .c delete all .c config -height 300 -highlightthickness 0 -bd 0 update - .c create text 100 100 -tags test + .c create text 100 100 -tags test .c itemconfig test -font $font -text "00000000" -width [expr 3*$ax] .c itemconfig test -anchor n -fill black set x [.c postscript] @@ -560,7 +561,7 @@ test canvText-19.1 {patch 1006286, leading space caused wrap under Win32} { + ([font measure {Arial 28 bold} "Y"] / 2)}] set y1 [expr {18 + ($metrics(-linespace) / 2)}] set y2 [expr {160 + ($metrics(-linespace) / 2)}] - + lappend results [$c index tbox1 @$x,$y1] lappend results [$c index tbox2 @$x,$y2] |