diff options
| author | etienne | 2003-06-20 16:21:46 +0000 |
|---|---|---|
| committer | etienne | 2003-06-20 16:21:46 +0000 |
| commit | 1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231 (patch) | |
| tree | ba2bbfa2a77a5318f18a3c3590f89172a016e497 /Perl/demos/Tk | |
| parent | 5ae790348e37d2e01dc72cd5ebe937b7df0b7688 (diff) | |
| download | tkzinc-1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231.zip tkzinc-1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231.tar.gz tkzinc-1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231.tar.bz2 tkzinc-1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231.tar.xz | |
Prise en compte dans les demos du nouvel emplacement du module Logo.
Ecriture d'un petit man Tk::Zinc::Logo.
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], |