diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-07-18 16:55:48 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-07-18 16:55:48 (GMT) |
| commit | e9409fdec20d94506d2139029826b5b74cd4cdd0 (patch) | |
| tree | f0f29309ea2cf495ce6cb3f0d1658c49ec8a99df | |
| parent | 26edd315e80308632906c451c6c6b29c61eeaee4 (diff) | |
| download | tk-e9409fdec20d94506d2139029826b5b74cd4cdd0.zip tk-e9409fdec20d94506d2139029826b5b74cd4cdd0.tar.gz tk-e9409fdec20d94506d2139029826b5b74cd4cdd0.tar.bz2 | |
* Corrections to merge from HEAD.
| -rw-r--r-- | tests/canvas.test | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/tests/canvas.test b/tests/canvas.test index e5cdc1f..c467986 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.10.4.1 2001/07/03 20:01:09 dgp Exp $ +# RCS: @(#) $Id: canvas.test,v 1.10.4.2 2001/07/18 16:55:48 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -366,6 +366,25 @@ test canvas-11.1 {canvas poly fill check, bug 5783} { .c create polygon 0 0 100 100 200 50 \ -fill {} -stipple gray50 -outline black } 1 +test canvas-11.2 {canvas poly overlap fill check, bug 226357} { + destroy .c + pack [canvas .c] + set result {} + .c create poly 30 30 90 90 30 90 90 30 + lappend result [.c find over 40 40 45 45]; # rect region inc. edge + lappend result [.c find over 60 40 60 40]; # top-center point + lappend result [.c find over 0 0 0 0]; # not on poly + lappend result [.c find over 60 60 60 60]; # center-point + lappend result [.c find over 45 50 45 50]; # outside poly + .c itemconfig 1 -fill "" -outline black + lappend result [.c find over 40 40 45 45]; # rect region inc. edge + lappend result [.c find over 60 40 60 40]; # top-center point + lappend result [.c find over 0 0 0 0]; # not on poly + lappend result [.c find over 60 60 60 60]; # center-point + lappend result [.c find over 45 50 45 50]; # outside poly + .c itemconfig 1 -width 8 + lappend result [.c find over 45 50 45 50]; # outside poly +} {1 1 {} 1 {} 1 1 {} 1 {} 1} test canvas-12.1 {canvas mm obj, patch SF-403327, 102471} { destroy .c |