From 9c8955548d77dafe081f28e419599089c2fe1503 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 4 Mar 2004 10:49:44 +0000
Subject: *** empty log message ***

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

(limited to 'Perl/demos')

diff --git a/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl b/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl
index 40ed701..d2fe155 100644
--- a/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl
@@ -274,7 +274,7 @@ sub _close {
     my $group = $self->{topgroup};
     # first step of animation
     if ($cnt == 0) {
-	my @pos = $widget->coords($group);
+	my @pos = $widget->coords($group)};
 	$x = ($x - $pos[0])/$self->{stepsnumber};
 	$y = ($y - $pos[1])/$self->{stepsnumber};
     # last step
@@ -325,7 +325,7 @@ sub _fortune {
     my $zf;
     my $widget = $self->{widget};
     my $group = $self->{topgroup};
-    my @pos = $widget->coords($group);
+    my @pos = $widget->coords($group)};
     # last step of animation
     if ($cnt == 6) {
 	$self->{fortune} = undef;
-- 
cgit v1.1