From 54f02580554d0fa8631d9616927fed08439fe6b0 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 20 Dec 2002 12:31:00 +0000
Subject: suppression d'un message de trace

---
 Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
index 4cb10c4..639ccd2 100644
--- a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
@@ -83,7 +83,7 @@ sub modifyAlpha {
     $xrate = 1 if $xrate > 1;
 
     my $alpha = $xrate * 100;
-    
+    print "Alpha=$alpha\n";
     $zinc->itemconfigure($group, -alpha => $alpha);
 }
 
-- 
cgit v1.1