diff options
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl | 4 |
1 files changed, 2 insertions, 2 deletions
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; |