diff options
| author | mertz | 2002-05-24 13:02:08 +0000 |
|---|---|---|
| committer | mertz | 2002-05-24 13:02:08 +0000 |
| commit | f7c2b6dfdb9cee79e812498d06f66f9e186df335 (patch) | |
| tree | 017269af3f08446c07a3c079af390a2913f0f9ac /Perl/debug | |
| parent | d64478e530f58aa687c0b5302c9b3219a08881a2 (diff) | |
| download | tkzinc-f7c2b6dfdb9cee79e812498d06f66f9e186df335.zip tkzinc-f7c2b6dfdb9cee79e812498d06f66f9e186df335.tar.gz tkzinc-f7c2b6dfdb9cee79e812498d06f66f9e186df335.tar.bz2 tkzinc-f7c2b6dfdb9cee79e812498d06f66f9e186df335.tar.xz | |
Ajout d'un tag letters et d'un tag point pour pouvoir s�lectionner
une partie du logo.
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'}, |