diff options
| -rw-r--r-- | Perl/Zinc/Debug.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm index 4dbcc1b..e7c3909 100644 --- a/Perl/Zinc/Debug.pm +++ b/Perl/Zinc/Debug.pm @@ -977,7 +977,7 @@ sub itemisoutside { } #print "outflag=$outflag bbox=@bbox\n"; return 0 unless $outflag; - my $g = $zinc->add('group', 1); + my $g = $zinc->add('group', 1, -tags => ['zincdebug']); my $hw = 110; my $hh = 80; my $r = 5; @@ -985,7 +985,6 @@ sub itemisoutside { -filled => 1, -linecolor => 'sienna', -linewidth => 3, - -tags => ['zincdebug'], -fillcolor => 'bisque', -priority => 1, ); @@ -994,7 +993,6 @@ sub itemisoutside { -color => 'sienna', -font => '-b&h-lucida-bold-i-normal-sans-34-240-*-*-p-*-iso8859-1', -anchor => 'center', - -tags => ['zincdebug'], -priority => 2, -text => "Item is\noutside\nwindow\n"); my ($x, $y); |