diff options
Diffstat (limited to 'Perl/demos/Tk')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/Zetris.pl | 7 | ||||
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 4 |
2 files changed, 6 insertions, 5 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); diff --git a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl index 98ef310..eacd57c 100644 --- a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl +++ b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl @@ -6,7 +6,7 @@ use Tk; use Tk::Zinc; use strict; -use LogoZinc; # this module implements a class which instances are Zinc logo! +use Tk::Zinc::Logo; # this module implements a class which instances are Zinc logo! package tkZincLogo; # for avoiding symbol collision between different demos @@ -36,7 +36,7 @@ my $zinc = $mw->Zinc(-width => 350, -height => 250, my $group = $zinc->add('group', 1, ); -my $logo = $zinc->LogoZinc(-parent => $group, +my $logo = $zinc->ZincLogo(-parent => $group, -position => [40, 70], -priority => 800, -scale => [.6, .6], |