summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorrjohnson <rjohnson>1998-07-27 17:21:02 (GMT)
committerrjohnson <rjohnson>1998-07-27 17:21:02 (GMT)
commit2777f8b526f0019372874c38eb127e1d27371c87 (patch)
treeab6c146949d9bdc5f77f72dec9b45a53d69a76a3
parent2b8f26c383b0c0cb88cc7929e482f18657606047 (diff)
downloadtk-2777f8b526f0019372874c38eb127e1d27371c87.zip
tk-2777f8b526f0019372874c38eb127e1d27371c87.tar.gz
tk-2777f8b526f0019372874c38eb127e1d27371c87.tar.bz2
added test for bbox on arcs in canvas
-rw-r--r--tests/canvas.test12
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/canvas.test b/tests/canvas.test
index 786a29a..ea2ab9a 100644
--- a/tests/canvas.test
+++ b/tests/canvas.test
@@ -190,3 +190,15 @@ test canvas-7.1 {canvas widget vs hidden commands} {
destroy .c
list [winfo children .] [interp hidden]
} [list {} $l]
+
+test canvas-8.1 {canvas arc bbox} {
+ catch {destroy .c}
+ canvas .c
+ .c create arc -100 10 100 210 -start 10 -extent 50 -style arc -tags arc1
+ set arcBox [.c bbox arc1]
+ .c create arc 100 10 300 210 -start 10 -extent 50 -style chord -tags arc2
+ set coordBox [.c bbox arc2]
+ .c create arc 300 10 500 210 -start 10 -extent 50 -style pieslice -tags arc3
+ set pieBox [.c bbox arc3]
+ list $arcBox $coordBox $pieBox
+} {{48 21 100 94} {248 21 300 94} {398 21 500 112}}