diff options
Diffstat (limited to 'Perl/debug')
| -rw-r--r-- | Perl/debug/LogoZinc.pm | 2 |
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'}, |