diff options
Diffstat (limited to 'Perl')
-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 +} |