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 /Perl/demos/Tk/demos | |
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
Diffstat (limited to 'Perl/demos/Tk/demos')
-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); } |