diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-08-19 14:41:50 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-08-19 14:41:50 (GMT) |
| commit | 4e9cc914ae924ff2c51ac4ddfb02bc3181f6f482 (patch) | |
| tree | 43f6b228d89c4d50a99b3df1a4ff37ac609e5c13 /tests | |
| parent | b38732572b83ccf7d34ac8957c00028386cc5258 (diff) | |
| download | tk-4e9cc914ae924ff2c51ac4ddfb02bc3181f6f482.zip tk-4e9cc914ae924ff2c51ac4ddfb02bc3181f6f482.tar.gz tk-4e9cc914ae924ff2c51ac4ddfb02bc3181f6f482.tar.bz2 | |
TIP#168 implementation. Based on [Patch 886240]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/canvas.test | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/canvas.test b/tests/canvas.test index efa6b16..84f18b3 100644 --- a/tests/canvas.test +++ b/tests/canvas.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-2000 Ajuba Solutions. # All rights reserved. # -# RCS: @(#) $Id: canvas.test,v 1.19 2004/06/15 21:06:40 dkf Exp $ +# RCS: @(#) $Id: canvas.test,v 1.20 2004/08/19 14:41:52 dkf Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -476,6 +476,16 @@ test canvas-16.1 {arc coords check} { .c itemcget $id -start } {33.0} +test canvas-17.1 {default smooth method handling} { + destroy .c; canvas .c + set id [.c create line {0 0 1 1 2 2 3 3 4 4 5 5 6 6}] + set result [.c itemcget $id -smooth] + foreach smoother {yes 1 bezier raw r b} { + .c itemconfigure $id -smooth $smoother + lappend result [.c itemcget $id -smooth] + } +} {0 true true true raw raw true} + destroy .c # cleanup |