diff options
| author | mertz | 2002-12-20 12:31:00 +0000 |
|---|---|---|
| committer | mertz | 2002-12-20 12:31:00 +0000 |
| commit | 54f02580554d0fa8631d9616927fed08439fe6b0 (patch) | |
| tree | 9133a6a868bc04d0af5dbe788ca6b9f1573c6adf | |
| parent | 91bf0e8766f87c25fdbb1a2b3ee8c3215e5dc369 (diff) | |
| download | tkzinc-54f02580554d0fa8631d9616927fed08439fe6b0.zip tkzinc-54f02580554d0fa8631d9616927fed08439fe6b0.tar.gz tkzinc-54f02580554d0fa8631d9616927fed08439fe6b0.tar.bz2 tkzinc-54f02580554d0fa8631d9616927fed08439fe6b0.tar.xz | |
suppression d'un message de trace
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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); } |