aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/Zinc/Debug.pm4
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);