ajout d'une instruction package pour limite rles risque de renommage

de fonctions / variables  entre diff�rentes demos

1 files changed, 3 insertions, 1 deletions

diff --git a/Perl/demos/Tk/demos/zinc_lib/counter.pl b/Perl/demos/Tk/demos/zinc_lib/counter.pl
index 6907fab..74c51aa 100644
--- a/Perl/demos/Tk/demos/zinc_lib/counter.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/counter.pl
@@ -7,6 +7,8 @@ use Tk::Zinc;
 use strict;
 use constant;
 
+package counter; # for avoiding symbol collision between different demos
+
 my constant $PI=3.1416;
 
 my $boldfont = '-adobe-helvetica-bold-r-normal--20-240-100-100-p-182-iso8859-1';
@@ -429,4 +431,4 @@ sub move{
   $zinc->translate("$clipped_group2",$x-$xi,$y-$yi);
 }
  
-MainLoop;
+Tk::MainLoop;