diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/Zetris.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/Zetris.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl index bd0ce94..1f17106 100644 --- a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl +++ b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl @@ -66,7 +66,7 @@ use Tk; use Tk::Zinc; use strict; -use LogoZinc; +use Tk::Zinc::Logo; package main; @@ -253,8 +253,9 @@ $tetris->add('rectangle', -visible => 1); my $group = $tetris->add('group', 1, ); -my $logo = $tetris->LogoZinc(-parent => $group, - -position => [$step_x*($width-2)/2-200, $step_y*($height-1)/2], +my $logo = $tetris->ZincLogo(-parent => $group, + -position => [$step_x*($width-2)/2-200, + $step_y*($height-1)/2], ); $tetris->lower($group); |