From 2f834339f3b2971293f76cb271051a5105e1aa4f Mon Sep 17 00:00:00 2001
From: lemort
Date: Wed, 23 Jan 2008 16:57:52 +0000
Subject: 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() !!!)

---
 Perl/demos/Tk/demos/zinc_lib/usedamage.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Perl/demos/Tk')

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
+}
-- 
cgit v1.1