From 8b26b4c2416759094fe34ba80595a5588e706f5f Mon Sep 17 00:00:00 2001
From: etienne
Date: Tue, 24 Jun 2003 12:45:44 +0000
Subject: Mise � jour instanciation du logo Tk:Zinc::Logo->new(-widget =>
 $zinc, ...) remplace $zinc->ZincLogo(...)

---
 Perl/demos/Tk/demos/zinc_lib/Zetris.pl     |  9 +++++----
 Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 11 ++++++-----
 2 files changed, 11 insertions(+), 9 deletions(-)

(limited to 'Perl/demos')

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]);
-- 
cgit v1.1