diff options
| author | rjohnson <rjohnson@noemail.net> | 1998-07-27 17:21:02 (GMT) |
|---|---|---|
| committer | rjohnson <rjohnson@noemail.net> | 1998-07-27 17:21:02 (GMT) |
| commit | bf9041383340917580eb5e9ae6041317d2a8923a (patch) | |
| tree | ab6c146949d9bdc5f77f72dec9b45a53d69a76a3 /tests/canvas.test | |
| parent | 58ac103e8c98c5c55cdac19c88fbb59cf62036f5 (diff) | |
| download | tk-bf9041383340917580eb5e9ae6041317d2a8923a.zip tk-bf9041383340917580eb5e9ae6041317d2a8923a.tar.gz tk-bf9041383340917580eb5e9ae6041317d2a8923a.tar.bz2 | |
added test for bbox on arcs in canvas
FossilOrigin-Name: c8410b73607962cafc785e6e9dc2f7a754a2b2c0
Diffstat (limited to 'tests/canvas.test')
| -rw-r--r-- | tests/canvas.test | 12 |
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}} |