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