From 1e6a0f1565eeefe908d89b9f2f8ef4cb671f6231 Mon Sep 17 00:00:00 2001
From: etienne
Date: Fri, 20 Jun 2003 16:21:46 +0000
Subject: Prise en compte dans les demos du nouvel emplacement du module Logo.
 Ecriture d'un petit man Tk::Zinc::Logo.

---
 Perl/demos/Tk/demos/zinc_lib/Zetris.pl     | 7 ++++---
 Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 4 ++--
 2 files changed, 6 insertions(+), 5 deletions(-)

(limited to 'Perl/demos/Tk')

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