diff options
author | lecoanet | 2004-03-04 10:49:44 +0000 |
---|---|---|
committer | lecoanet | 2004-03-04 10:49:44 +0000 |
commit | 9c8955548d77dafe081f28e419599089c2fe1503 (patch) | |
tree | ee443440b272626c163afc874bc648e1840b0a14 /Perl/demos/Tk | |
parent | a706fe4466d559c1eb52fa849e9769b0d82fc782 (diff) | |
download | tkzinc-9c8955548d77dafe081f28e419599089c2fe1503.zip tkzinc-9c8955548d77dafe081f28e419599089c2fe1503.tar.gz tkzinc-9c8955548d77dafe081f28e419599089c2fe1503.tar.bz2 tkzinc-9c8955548d77dafe081f28e419599089c2fe1503.tar.xz |
*** empty log message ***
Diffstat (limited to 'Perl/demos/Tk')
-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; |