summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-08-19 14:41:50 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-08-19 14:41:50 (GMT)
commit4e9cc914ae924ff2c51ac4ddfb02bc3181f6f482 (patch)
tree43f6b228d89c4d50a99b3df1a4ff37ac609e5c13 /tests
parentb38732572b83ccf7d34ac8957c00028386cc5258 (diff)
downloadtk-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.test12
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