From 64a42ef746586095dd2c05cd5b53add4029c81eb Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 2 Jul 2002 08:27:59 +0000
Subject: - ajout d'une instruction package pour �viter les risque de renommage
 de fonctions / variables entre deux demos. - suppressions de variables
 red�finies localement dans ces demos.

---
 Perl/demos/Tk/demos/zinc_lib/clipping.pl         | 48 ++++++++++++------------
 Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl | 17 +++++----
 2 files changed, 34 insertions(+), 31 deletions(-)

(limited to 'Perl')

diff --git a/Perl/demos/Tk/demos/zinc_lib/clipping.pl b/Perl/demos/Tk/demos/zinc_lib/clipping.pl
index a31d602..b5ace04 100644
--- a/Perl/demos/Tk/demos/zinc_lib/clipping.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/clipping.pl
@@ -7,6 +7,8 @@ use Tk::Zinc;
 use strict;
 use Tk::Checkbutton;
 
+package clipping;
+
 my $defaultfont = '-adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-*';
 my $mw = MainWindow->new();
 my $zinc = $mw->Zinc(-width => 700, -height => 600,
@@ -49,19 +51,19 @@ my $tan_group = $zinc->add('group', $clipped_group,
 			   -sensitive => 1,
 			   );
 
-my $arc = $zinc->add('arc', $tan_group,
-		     [200, 220, 280, 300],
-		     -filled => 1,  -linewidth => 1,
-		     -startangle => 45, -extent => 270,
-		     -pieslice => 1, -closed => 1,
-		     -fillcolor => "tan",
-		     );
+$zinc->add('arc', $tan_group,
+	   [200, 220, 280, 300],
+	   -filled => 1,  -linewidth => 1,
+	   -startangle => 45, -extent => 270,
+	   -pieslice => 1, -closed => 1,
+	   -fillcolor => "tan",
+	   );
 
-my $bezier = $zinc->add('bezier', $tan_group,
-			[400,400, 400,500, 500,500, 500,400],
-			-filled => 1,  -fillcolor => "tan",
-			-linecolor => "tan",
-			);
+$zinc->add('bezier', $tan_group,
+	   [400,400, 400,500, 500,500, 500,400],
+	   -filled => 1,  -fillcolor => "tan",
+	   -linecolor => "tan",
+	   );
 
 ############### creating the blue_group objects ################
 # the blue_group is atomic too, that is is makes all children as a single object
@@ -72,17 +74,17 @@ my $blue_group = $zinc->add('group', $clipped_group,
 			    -sensitive => 1,
 			    );
 
-my $arc = $zinc->add('rectangle', $blue_group,
-		     [570,180,  470,280],
-		     -filled => 1,  -linewidth => 1,
-		     -fillcolor => "blue2",
-		     );
+$zinc->add('rectangle', $blue_group,
+	   [570,180,  470,280],
+	   -filled => 1,  -linewidth => 1,
+	   -fillcolor => "blue2",
+	   );
 
-my $bezier = $zinc->add('bezier', $blue_group,
-			[200,400, 200,500, 300,500, 300,400, 300,300],
-			-filled => 1,  -fillcolor => "blue",
-			-linewidth => 0,
-			);
+$zinc->add('bezier', $blue_group,
+	   [200,400, 200,500, 300,500, 300,400, 300,300],
+	   -filled => 1,  -fillcolor => "blue",
+	   -linewidth => 0,
+	   );
 
 
 $zinc->itemconfigure($clipped_group, -clip => $clipping_item);
@@ -142,4 +144,4 @@ sub clip {
     }
 }
 
-MainLoop;
+Tk::MainLoop;
diff --git a/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl b/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl
index 15f2004..0403ff8 100644
--- a/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl
@@ -6,6 +6,7 @@ use Tk;
 use Tk::Zinc;
 use strict;
 
+package icon_zoom__resize; # for avoiding symbol re-use between different demos
 
 my $defaultfont = '-adobe-helvetica-bold-r-normal-*-140-*-*-*-*-*-*';
 my $mw = MainWindow->new();
@@ -40,13 +41,13 @@ my $earth = $zinc->add('icon', $earth_group,
 		      -composescale => 1,
 		      -composerotation => 1,
 		      );
-my $text = $zinc->add('text', $earth_group,
-		      -connecteditem => $earth,
-		      -text => "try to zoom/resize the earth!",
-		      -color => "white",
-		      -composescale => 1,
-		      -composerotation => 1,
-		      );
+$zinc->add('text', $earth_group,
+	   -connecteditem => $earth,
+	   -text => "try to zoom/resize the earth!",
+	   -color => "white",
+	   -composescale => 1,
+	   -composerotation => 1,
+	   );
 
 $zinc->Tk::bind('<ButtonPress-1>', [\&press, \&zoom]);
 $zinc->Tk::bind('<ButtonRelease-1>', [\&release]);
@@ -150,4 +151,4 @@ sub release {
     $zinc->Tk::bind('<Motion>', '');
 }
 
-MainLoop;
+Tk::MainLoop;
-- 
cgit v1.1