diff options
| author | lemort | 2008-01-23 16:57:52 +0000 |
|---|---|---|
| committer | lemort | 2008-01-23 16:57:52 +0000 |
| commit | 2f834339f3b2971293f76cb271051a5105e1aa4f (patch) | |
| tree | 5648fefa4d345bfc922146148641937aef2e5662 | |
| parent | 3a68b18a3b76767d9a2f68ae13535bd80a4f9f11 (diff) | |
| download | tkzinc-2f834339f3b2971293f76cb271051a5105e1aa4f.zip tkzinc-2f834339f3b2971293f76cb271051a5105e1aa4f.tar.gz tkzinc-2f834339f3b2971293f76cb271051a5105e1aa4f.tar.bz2 tkzinc-2f834339f3b2971293f76cb271051a5105e1aa4f.tar.xz | |
Mise entre '' de -usedamage dans l'appel a cget pour eviter une mauvaise interpretation par ActivePerl build 822 (la syntaxe est jugee ambigue et elle est resolu comme -&usedamage() !!!)
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/usedamage.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/usedamage.pl b/Perl/demos/Tk/demos/zinc_lib/usedamage.pl index b7f1005..2ad1496 100644 --- a/Perl/demos/Tk/demos/zinc_lib/usedamage.pl +++ b/Perl/demos/Tk/demos/zinc_lib/usedamage.pl @@ -165,7 +165,7 @@ sub benchmarkUsedamage { my ($label, $usedamage) = @_; # Get usedamage value - my $previousValue = $zinc->cget(-usedamage); + my $previousValue = $zinc->cget('-usedamage'); # Force redisplay $zinc->tset($circle, 1, 0, 0, 1, 0, 0); @@ -194,4 +194,4 @@ sub benchmarkUsedamage { # Restore usedamage $zinc->configure(-usedamage => $previousValue); $zinc->itemconfigure($circle, -sensitive => 1); -}
\ No newline at end of file +} |