From f7c2b6dfdb9cee79e812498d06f66f9e186df335 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 24 May 2002 13:02:08 +0000
Subject: Ajout d'un tag letters et d'un tag point pour pouvoir s�lectionner
 une partie du logo.

---
 Perl/debug/LogoZinc.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Perl/debug')

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'},
-- 
cgit v1.1