aboutsummaryrefslogtreecommitdiff
path: root/Perl/debug
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/debug')
-rw-r--r--Perl/debug/LogoZinc.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/Perl/debug/LogoZinc.pm b/Perl/debug/LogoZinc.pm
index 7cedecf..2f2dc7b 100644
--- a/Perl/debug/LogoZinc.pm
+++ b/Perl/debug/LogoZinc.pm
@@ -152,6 +152,7 @@ sub drawLogo {
$zinc->add('curve', $group,
$shape_pts,
+ -tags => ['letters'],
-closed => 0,
-filled => 1,
-fillcolor => $shapeconf->{'-fillcolor'},
@@ -178,6 +179,7 @@ sub drawLogo {
my $pt_pts = $self->polyLine(0, 0, @form_params);
$zinc->add('curve', $ptgroup,
$pt_pts,
+ -tags => ['point'],
-closed => 1,
-filled => 1,
-fillcolor => $pointconf->{'-fillcolor'},