diff options
| author | etienne | 2003-06-24 12:45:44 +0000 |
|---|---|---|
| committer | etienne | 2003-06-24 12:45:44 +0000 |
| commit | 8b26b4c2416759094fe34ba80595a5588e706f5f (patch) | |
| tree | 59f04ed50dcb3c7cb2a12c7ed8662b1f25147705 /Perl/demos | |
| parent | a5226e6d70495710f122f517db617e5a2f0f3b51 (diff) | |
| download | tkzinc-8b26b4c2416759094fe34ba80595a5588e706f5f.zip tkzinc-8b26b4c2416759094fe34ba80595a5588e706f5f.tar.gz tkzinc-8b26b4c2416759094fe34ba80595a5588e706f5f.tar.bz2 tkzinc-8b26b4c2416759094fe34ba80595a5588e706f5f.tar.xz | |
Mise � jour instanciation du logo
Tk:Zinc::Logo->new(-widget => $zinc, ...) remplace
$zinc->ZincLogo(...)
Diffstat (limited to 'Perl/demos')
| -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]); |