diff options
Diffstat (limited to 'Perl/demos/Tk')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/Zetris.pl | 9 | ||||
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 11 |
2 files changed, 11 insertions, 9 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); diff --git a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl index eacd57c..55a0621 100644 --- a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl +++ b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl @@ -36,11 +36,12 @@ my $zinc = $mw->Zinc(-width => 350, -height => 250, my $group = $zinc->add('group', 1, ); -my $logo = $zinc->ZincLogo(-parent => $group, - -position => [40, 70], - -priority => 800, - -scale => [.6, .6], - ); +my $logo = Tk::Zinc::Logo->new(-widget => $zinc, + -parent => $group, + -position => [40, 70], + -priority => 800, + -scale => [.6, .6], + ); $zinc->Tk::bind('<ButtonPress-1>', [\&press, \&motion]); |