diff options
| -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); } |