Daniel Etienne pre release for Bullseye

53 files changed, 121 insertions, 117 deletions

diff --git a/Perl/Zinc.pm b/Perl/Zinc.pm
index 663ef80..79dae5b 100644
--- a/Perl/Zinc.pm
+++ b/Perl/Zinc.pm
@@ -1,4 +1,4 @@
-# $Id$
+# $Id: Zinc.pm 1809 2006-09-20 12:32:11Z lecoanet $
 # $Name$
 
 package Tk::Zinc;
@@ -13,7 +13,7 @@ Construct Tk::Widget 'Zinc';
 
 use vars qw($VERSION $REVISION);
 
-$REVISION = q$Revision$ ;  # this line is automagically modified by CVS
+$REVISION = q$Revision: 1809 $ ;  # this line is automagically modified by CVS
 $VERSION = SEEexport2cpan;
 
 
@@ -135,7 +135,7 @@ Patrick Lecoanet <lecoanet@cena.fr>
 =head1 COPYRIGHT
 
 Zinc has been developed by the CENA (Centres d'Etudes de la Navigation
-Aérienne) for its own needs in advanced HMI (Human Machine Interfaces or Interactions).
+Aerienne) for its own needs in advanced HMI (Human Machine Interfaces or Interactions).
 Because we are confident in the benefit of free software, the CENA delivered this
 toolkit under the GNU Library General Public License.
 
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm
index 71a4d18..b1c0118 100644
--- a/Perl/Zinc/Debug.pm
+++ b/Perl/Zinc/Debug.pm
@@ -4,12 +4,12 @@
 #
 #        Author : Daniel Etienne <etienne@cena.fr>
 #
-# $Id$
+# $Id: Debug.pm 1650 2005-05-12 15:51:12Z etienne $
 #---------------------------------------------------------------------------
 package Tk::Zinc::Debug;
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1650 $ =~ /(\d+)\.(\d+)/);
 
 use strict 'vars';
 use vars qw(@ISA @EXPORT @EXPORT_OK $WARNING $endoptions);
@@ -2978,7 +2978,7 @@ Defines the display format of option's values. Default is 'row'.
     
 =item E<32>E<32>E<32>B<-snapshotBasename> => string
 
-Defines the basename used for the file containing the snaphshot. The filename will be <current­dir>/basename<n>.png  Defaulted to 'zincsnapshot'.
+Defines the basename used for the file containing the snaphshot. The filename will be <currentdir>/basename<n>.png . Defaulted to 'zincsnapshot'.
 
 =item E<32>E<32>E<32>B<-expandTagsField> => 0 | 1
 
@@ -3014,7 +3014,7 @@ Jan 20 2003 : item's attributes can be edited.
 
 Jan 14 2003 : ZincDebug can be loaded at runtime using the -M perl option without any change in the application's code.
 
-Nov 6 2002 : some additional informations (like tags or other attributes values) can be displayed in the items tree. Add feedback when selected item is not visible because outside window.
+Nov 6 2002 : some additional information (like tags or other attributes values) can be displayed in the items tree. Add feedback when selected item is not visible because outside window.
 
 Sep 2 2002 : add the tree() function
 
diff --git a/Perl/Zinc/Graphics.pm b/Perl/Zinc/Graphics.pm
index 8305c81..9ccdef7 100644
--- a/Perl/Zinc/Graphics.pm
+++ b/Perl/Zinc/Graphics.pm
@@ -67,12 +67,12 @@
 #-----------------------------------------------------------------------------------
 #      Authors: Jean-Luc Vinot <vinot@cena.fr>
 #
-# $Id$ 
+# $Id: Graphics.pm 1408 2004-04-16 09:06:55Z mertz $ 
 #-----------------------------------------------------------------------------------
 package Tk::Zinc::Graphics;
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1408 $ =~ /(\d+)\.(\d+)/);
 
 require Exporter;
 @ISA = qw(Exporter);
diff --git a/Perl/Zinc/Logo.pm b/Perl/Zinc/Logo.pm
index 486c904..276ebaf 100644
--- a/Perl/Zinc/Logo.pm
+++ b/Perl/Zinc/Logo.pm
@@ -3,7 +3,7 @@ package Tk::Zinc::Logo;
 #---------------------------------------------------------------
 #
 #  Module          : Logo.pm
-#  $Id$
+#  $Id: Logo.pm 1156 2003-09-15 12:25:06Z mertz $
 #
 #  Copyright (C) 2001-2003
 #  Centre d'Études de la Navigation Aérienne
@@ -12,7 +12,7 @@ package Tk::Zinc::Logo;
 #---------------------------------------------------------------
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
 
 use strict;
 use Carp;
diff --git a/Perl/Zinc/Text.pm b/Perl/Zinc/Text.pm
index 63e9573..0c27da5 100644
--- a/Perl/Zinc/Text.pm
+++ b/Perl/Zinc/Text.pm
@@ -1,7 +1,7 @@
 package Tk::Zinc::Text;
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
 
 
 sub new {
diff --git a/Perl/Zinc/Trace.pm b/Perl/Zinc/Trace.pm
index dc3c496..e19c722 100644
--- a/Perl/Zinc/Trace.pm
+++ b/Perl/Zinc/Trace.pm
@@ -17,7 +17,7 @@
 # This may be very usefull when your application segfaults and
 # when you have no idea where this happens in your code.
 #
-# $Id$
+# $Id: Trace.pm 1658 2005-05-16 07:23:18Z lecoanet $
 #
 # To trap Tk::Zinc errors, use rather the Tk::Zinc::TraceErrors package.
 #
@@ -27,7 +27,7 @@
 package Tk::Zinc::Trace;
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1658 $ =~ /(\d+)\.(\d+)/);
 
 use vars qw( $ForReplay );
 
diff --git a/Perl/Zinc/TraceErrors.pm b/Perl/Zinc/TraceErrors.pm
index 2ad524c..43ff71b 100644
--- a/Perl/Zinc/TraceErrors.pm
+++ b/Perl/Zinc/TraceErrors.pm
@@ -18,7 +18,7 @@
 # module name, the line number and the complete error messages are reported
 # for each error.
 #
-# $Id$
+# $Id: TraceErrors.pm 1658 2005-05-16 07:23:18Z lecoanet $
 #
 # When you have no idea where this happens in your code or when your
 # application segfaults, use the Tk::Zinc::Trace package which traces every
@@ -30,7 +30,7 @@
 package Tk::Zinc::TraceErrors;
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1658 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use strict;
diff --git a/Perl/Zinc/TraceUtils.pm b/Perl/Zinc/TraceUtils.pm
index b7baa54..c77525c 100644
--- a/Perl/Zinc/TraceUtils.pm
+++ b/Perl/Zinc/TraceUtils.pm
@@ -1,7 +1,7 @@
 package Tk::Zinc::TraceUtils;
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1726 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Font;
diff --git a/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl b/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl
index 42bb2d1..8a7a0bd 100644
--- a/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl
+++ b/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl
@@ -2,7 +2,7 @@
 # TripleRotatingWheel gambling game contributed by "zentara"
 
 # Idea derived from the wheelOfFortune.pl demo by D. Etienne etienne@cena.fr
-# $Id$ 
+# $Id: TripleRotatingWheel.pl 1375 2004-03-05 14:54:23Z etienne $ 
 
 
 use Tk; 
diff --git a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
index a625254..d40c733 100644
--- a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
@@ -11,11 +11,11 @@
 #
 #      Authors: Jean-Luc Vinot <vinot@cena.fr>
 #
-# $Id$
+# $Id: MagicLens.pl 1551 2004-09-21 12:47:28Z mertz $
 #-----------------------------------------------------------------------------------
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1551 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl
index f6c9df0..565c173 100644
--- a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl
@@ -4,7 +4,7 @@
 #
 #  Zetris - A Zinc Toy-Appli based on cool TkTetris from Slaven Rezic
 #
-#  $Id$
+#  $Id: Zetris.pl 1277 2003-11-28 09:43:10Z mertz $
 #
 #  Copyright (C) 2002 Centre d'Etudes de la Navigation Aérienne
 #  Author: Marcellin Buisson <buisson@cena.fr>
@@ -75,7 +75,7 @@ use Getopt::Long;
 
 use vars qw($VERSION);
 
-$VERSION = sprintf("%d.%00d", q$Revision$ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%00d", q$Revision: 1277 $ =~ /(\d+)\.(\d+)/);
 
 my $max_size     = 4;
 my $nmbr_blks    = 7;
@@ -369,6 +369,7 @@ sub resize_calc
 sub make_key_bindings
   {
     my $top = shift;
+    $top->bind('<Enter>' => sub { $top->focus });
 #    $top->bind('<Escape>' => \&quit_game);
 #    $top->bind('<q>'      => \&quit_game);
 #    $top->bind('<Control-c>' => \&quit_game);
diff --git a/Perl/demos/Tk/demos/zinc_lib/all_options.pl b/Perl/demos/Tk/demos/zinc_lib/all_options.pl
index 25140f2..475602d 100644
--- a/Perl/demos/Tk/demos/zinc_lib/all_options.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/all_options.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: all_options.pl 1487 2004-05-14 09:06:20Z lecoanet $
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1487 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
@@ -33,22 +33,22 @@ my $zinc = $mw->Zinc(-width => 1, -height => 1,
 my %itemtypes;
 
 # These Items have fields! So the number of fields must be given at creation time
-foreach my $type qw(tabular track waypoint) {
+foreach my $type (qw(tabular track waypoint)) {
     $itemtypes{$type} = $zinc->add($type, 1, 0);
 }
 
 # These items needs no specific initial values
-foreach my $type qw(group icon map reticle text window) {
+foreach my $type (qw(group icon map reticle text window)) {
     $itemtypes{$type} = $zinc->add($type, 1);
 }
 
 # These items needs some coordinates at creation time
 # However curves usually needs more than 2 points.
-foreach my $type qw(arc curve rectangle) {
+foreach my $type (qw(arc curve rectangle)) {
     $itemtypes{$type} = $zinc->add($type, 1, [0,0 , 1,1]);
 }
 # Triangles item needs at least 3 points for the coordinates 
-foreach my $type qw(triangles) {
+foreach my $type (qw(triangles)) {
     $itemtypes{$type} = $zinc->add($type, 1, [0,0 , 1,1 , 2,2]);
 }
 
diff --git a/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl b/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl
index 67c019c..32cab30 100644
--- a/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: atomic-groups.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # this simple sample has been developped by C. Mertz mertz@cena.fr
 
 package atomic_groups;
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/clipping.pl b/Perl/demos/Tk/demos/zinc_lib/clipping.pl
index 4a320e0..5306e50 100644
--- a/Perl/demos/Tk/demos/zinc_lib/clipping.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/clipping.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: clipping.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # this simple sample has been developped by C. Mertz mertz@cena.fr
 
 use Tk;
@@ -10,7 +10,7 @@ use Tk::Checkbutton;
 package clipping;
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 my $defaultfont = '-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*';
 my $mw = MainWindow->new();
diff --git a/Perl/demos/Tk/demos/zinc_lib/color-circular.pl b/Perl/demos/Tk/demos/zinc_lib/color-circular.pl
index 1ee1638..23be8ce 100644
--- a/Perl/demos/Tk/demos/zinc_lib/color-circular.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/color-circular.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: color-circular.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/color-path-and-conic.pl b/Perl/demos/Tk/demos/zinc_lib/color-path-and-conic.pl
index 264811f..54f2e6d 100644
--- a/Perl/demos/Tk/demos/zinc_lib/color-path-and-conic.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/color-path-and-conic.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: color-path-and-conic.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/color-x.pl b/Perl/demos/Tk/demos/zinc_lib/color-x.pl
index 62937b2..11cca42 100644
--- a/Perl/demos/Tk/demos/zinc_lib/color-x.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/color-x.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: color-x.pl 1549 2004-09-21 12:43:03Z mertz $
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1549 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/color-y.pl b/Perl/demos/Tk/demos/zinc_lib/color-y.pl
index b33f269..e8fd404 100644
--- a/Perl/demos/Tk/demos/zinc_lib/color-y.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/color-y.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: color-y.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/contours.pl b/Perl/demos/Tk/demos/zinc_lib/contours.pl
index db0b960..ba54520 100644
--- a/Perl/demos/Tk/demos/zinc_lib/contours.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/contours.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: contours.pl 1156 2003-09-15 12:25:06Z mertz $
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
 package contours; # for avoiding symbol collision between different demos
@@ -10,7 +10,7 @@ use Tk::Zinc;
 use strict;
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
 
 my $mw = MainWindow->new();
 
diff --git a/Perl/demos/Tk/demos/zinc_lib/counter.pl b/Perl/demos/Tk/demos/zinc_lib/counter.pl
index a0e9534..4476db8 100644
--- a/Perl/demos/Tk/demos/zinc_lib/counter.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/counter.pl
@@ -4,7 +4,7 @@
 package counter; # for avoiding symbol collision between different demos
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
index bc59863..ffa6061 100644
--- a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: curve_bezier.pl 1550 2004-09-21 12:45:38Z mertz $
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
 ####### This file has been initially inspired from svg examples
@@ -7,7 +7,7 @@
 package curveBezier;
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1550 $ =~ /(\d+)\.(\d+)/);
 
 use Tk::Zinc;
 
diff --git a/Perl/demos/Tk/demos/zinc_lib/fillrule.pl b/Perl/demos/Tk/demos/zinc_lib/fillrule.pl
index 08ec781..d2fd7bb 100644
--- a/Perl/demos/Tk/demos/zinc_lib/fillrule.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/fillrule.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: fillrule.pl 1551 2004-09-21 12:47:28Z mertz $
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
 ####### This file has been largely inspired from figure 11-3
@@ -11,7 +11,7 @@
 #######   contour, coords and clone method
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1551 $ =~ /(\d+)\.(\d+)/);
 
 use Tk::Zinc;
 
diff --git a/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl b/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl
index 74cc71c..256059d 100644
--- a/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl
@@ -11,7 +11,7 @@
 #                 We must know if a neamed gradient already exists, when launching
 #                 many time the same demo in the same process!
 #
-# $Id$
+# $Id: groups_in_ATC_strips.pl 1551 2004-09-21 12:47:28Z mertz $
 #-----------------------------------------------------------------------------------
 #      This small application illustrates both the use of groups in combination
 #         of -composescale attributes and an implementation of kind of air traffic
@@ -41,7 +41,7 @@
 package groups_in_ATC_strips; # for avoiding symbol collision between different demos
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1551 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl b/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl
index e7f872d..968bd01 100644
--- a/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: groups_priority.pl 1156 2003-09-15 12:25:06Z mertz $
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
 package groups_priority;  # for avoiding symbol sharing between different demos
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
@@ -141,13 +141,13 @@ sub updateLabel {
     my ($group) = @_;
     my $priority = $zinc->itemcget($group, -priority);
     # we get the text item from this group:
-    my $textitem = $zinc->find('withtype', 'text', ".$group.");
+    my ($textitem) = $zinc->find('withtype', 'text', ".$group.");
     $zinc->itemconfigure($textitem, -text => "pri=$priority");
 }
 
 sub setPriorrity {
     my ($zinc, $priority) = @_;
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     $zinc->itemconfigure ($item, -priority => $priority);
     &updateLabel($item);
@@ -158,7 +158,7 @@ sub setPriorrity {
 sub lower {
     my ($zinc) = @_;
     # to get the item under the cursor!
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     $zinc->lower($item);
     &updateLabel($item);
@@ -168,7 +168,7 @@ sub lower {
 sub raise {
     my ($zinc) = @_;
     # to get the item under the cursor!
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     $zinc->raise($item);
     &updateLabel($item);
@@ -178,7 +178,7 @@ sub raise {
 sub lowerGroup {
     my ($zinc) = @_;
     # to get the item under the cursor!
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     my $coloredGroup = $zinc->group($item);
     $zinc->lower($coloredGroup);
@@ -188,7 +188,7 @@ sub lowerGroup {
 sub raiseGroup {
     my ($zinc) = @_;
     # to get the item under the cursor!
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     my $coloredGroup = $zinc->group($item);
     $zinc->raise($coloredGroup);
@@ -199,7 +199,7 @@ sub raiseGroup {
 sub toggleItemGroup {
     my ($zinc) = @_;
     # to get the item under the cursor!
-    my $item = $zinc->find('withtag', 'current');
+    my ($item) = $zinc->find('withtag', 'current');
     return unless $item;
     my $newgroup;
     if ($group1 == $zinc->group($item)) {
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 1274ffc..7e578e4 100644
--- a/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: icon_zoom_resize.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # this simple demo has been developped by C. Mertz <mertz@cena.fr>
 
 package icon_zoom__resize; # for avoiding symbol re-use between different demos
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/items.pl b/Perl/demos/Tk/demos/zinc_lib/items.pl
index d092924..853208d 100644
--- a/Perl/demos/Tk/demos/zinc_lib/items.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/items.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: items.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/labelformat.pl b/Perl/demos/Tk/demos/zinc_lib/labelformat.pl
index 465eb07..24db712 100644
--- a/Perl/demos/Tk/demos/zinc_lib/labelformat.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/labelformat.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: labelformat.pl 1156 2003-09-15 12:25:06Z mertz $
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/lines.pl b/Perl/demos/Tk/demos/zinc_lib/lines.pl
index 5469404..24f7a5c 100644
--- a/Perl/demos/Tk/demos/zinc_lib/lines.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/lines.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: lines.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl b/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl
index f6dc46e..aeeee97 100644
--- a/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: mapinfo.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # This simple demo has been developped by C. Schlienger <celine@intuilab.com>
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/path_tags.pl b/Perl/demos/Tk/demos/zinc_lib/path_tags.pl
index 30272d8..0b70680 100644
--- a/Perl/demos/Tk/demos/zinc_lib/path_tags.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/path_tags.pl
@@ -1,10 +1,10 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: path_tags.pl 1258 2003-10-14 09:01:52Z mertz $
 # this pathtatg demo have been developped by C. Mertz mertz@cena.fr
 # with the help of Daniel Etienne etienne@cena.fr
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1258 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/rotation.pl b/Perl/demos/Tk/demos/zinc_lib/rotation.pl
index c5549bf..08ebdb9 100644
--- a/Perl/demos/Tk/demos/zinc_lib/rotation.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/rotation.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: rotation.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # This simple demo has been developped by C. Schlienger <celine@intuilab.com>
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 
 use Tk;
diff --git a/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl b/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl
index 2ceb925..369708b 100644
--- a/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: simple_interaction_track.pl 1156 2003-09-15 12:25:06Z mertz $
 # This simple demo has been developped by C. Schlienger <celine@intuilab.com>
 
 package simple_interaction_track; # for avoiding symbol collision between different demos
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
 
 
 use Tk;
diff --git a/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl b/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl
index 06cec3c..e70229b 100644
--- a/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl
@@ -1,12 +1,12 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: simpleradar.pl 1872 2007-03-06 09:28:05Z lecoanet $
 # This simple radar has been initially developped by P. Lecoanet <lecoanet@cena.fr>
 # It has been adapted by C. Mertz <mertz@cena.fr> for demo purpose.
 
 package simpleradar; # for avoiding symbol collision between different demos
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1872 $ =~ /(\d+)\.(\d+)/);
 
 
 use Tk;
@@ -53,7 +53,7 @@ my %tracks = ();
 
 my $pause = 0; # if true the flight are no more moving
 my $zinc = $mw->Zinc(-render => 1,
-                     -enablerotation => 1,
+                     # -enablerotation => 1,
                      -backcolor => 'gray65',
 		     -relief => 'sunken',
 		     -font => "10x20");
@@ -255,7 +255,9 @@ sub create_route {
     my $x;
     my $y;
     my $i = 4;
-    my $track = $tracks{$zinc->find('withtag', 'current')};
+    # my $track = $tracks{$zinc->find('withtag', 'current')};
+    my ($item_) = $zinc->find('withtag', 'current');
+    my $track = $tracks{$item_};
     
     if ($track->{'route'} == 0) {
 	$x = $track->{'x'} + 8.0 * $track->{'vx'};
diff --git a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl
index 5da149b..6c9eb76 100644
--- a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl
@@ -6,11 +6,11 @@
 #
 #      Authors: Jean-Luc Vinot <vinot@cena.fr>
 #
-# $Id$
+# $Id: testGraphics.pl 1548 2004-09-21 12:41:55Z mertz $
 #-----------------------------------------------------------------------------------
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1548 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
@@ -30,7 +30,8 @@ my ($dx, $dy);
 my $tabanchor = 'n';
 my $tabalign = 'left';
 
-my $font_9b = '7x13bold';
+# my $font_9b = '7x13bold';
+my $font_9b = ":pixelsize=12";
 # the original font is not standard, even if it is fully free:
 # my $font_9b = '-cenapii-bleriot mini-bold-r-normal--9-90-75-75-p-75-iso8859-15';
 
diff --git a/Perl/demos/Tk/demos/zinc_lib/textInput.pl b/Perl/demos/Tk/demos/zinc_lib/textInput.pl
index 414f613..fa8d8f5 100644
--- a/Perl/demos/Tk/demos/zinc_lib/textInput.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/textInput.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: textInput.pl 1180 2003-09-24 15:08:37Z mertz $
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
 package textInput; # for avoiding symbol re-use between different demos
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1180 $ =~ /(\d+)\.(\d+)/);
 
 
 use Tk;
diff --git a/Perl/demos/Tk/demos/zinc_lib/tiger.pl b/Perl/demos/Tk/demos/zinc_lib/tiger.pl
index 4972d39..5c9cfe9 100644
--- a/Perl/demos/Tk/demos/zinc_lib/tiger.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/tiger.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# $Id$
+# $Id: tiger.pl 1602 2005-01-15 14:28:56Z mertz $
 # This simple demo has been developped by C. Mertz <mertz@intuilab.com>
  
 ####### This file has been initially generated from tiger.svg by SVG2zinc.pm Version: Revision: 1.10 
@@ -8,7 +8,7 @@
 ### under linux) was from Daniel Etienne! Thx!
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1602 $ =~ /(\d+)\.(\d+)/);
 
 
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
index 8e3ca9d..fef47b5 100644
--- a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
@@ -1,12 +1,12 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: tkZincLogo.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # this simple demo has been adapted by C. Mertz <mertz@cena.fr> from the original
 # work of JL. Vinot <vinot@cena.fr>
 
 package tkZincLogo; # for avoiding symbol collision between different demos
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/transforms.pl b/Perl/demos/Tk/demos/zinc_lib/transforms.pl
index 0d8cab0..d1ad366 100644
--- a/Perl/demos/Tk/demos/zinc_lib/transforms.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/transforms.pl
@@ -1,10 +1,10 @@
 #!/usr/bin/perl -w
 
-# $Id$
+# $Id: transforms.pl 1181 2003-09-24 15:10:39Z mertz $
 # This simple demo has been developped by P. Lecoanet <lecoanet@cena.fr>
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1181 $ =~ /(\d+)\.(\d+)/);
 
 #
 # TODO:
diff --git a/Perl/demos/Tk/demos/zinc_lib/translation.pl b/Perl/demos/Tk/demos/zinc_lib/translation.pl
index f6abb15..cb13565 100644
--- a/Perl/demos/Tk/demos/zinc_lib/translation.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/translation.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: translation.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # This simple demo has been developped by C. Schlienger <celine@intuilab.com>
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 
 use Tk;
diff --git a/Perl/demos/Tk/demos/zinc_lib/triangles.pl b/Perl/demos/Tk/demos/zinc_lib/triangles.pl
index 2dfba41..4bc24c6 100644
--- a/Perl/demos/Tk/demos/zinc_lib/triangles.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/triangles.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: triangles.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # these simple samples have been developped by C. Mertz mertz@cena.fr and N. Banoun banoun@cena.fr
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/usedamage.pl b/Perl/demos/Tk/demos/zinc_lib/usedamage.pl
index 2ad1496..c4ffa61 100644
--- a/Perl/demos/Tk/demos/zinc_lib/usedamage.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/usedamage.pl
@@ -2,12 +2,12 @@
 #
 # Use damage test
 #
-# $Id$
+# $Id: usedamage.pl 1901 2008-01-23 16:57:52Z lemort $
 # this simple test has been developped by A.Lemort lemort@intuilab.com
 
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1901 $ =~ /(\d+)\.(\d+)/);
 
 use strict;
 use Tk;
@@ -77,17 +77,17 @@ $zinc->bind($circle, '<B1-Motion>', [\&motion, Ev('x'), Ev('y')]);
 # Add bindings to change the value of usedamage
 $mw->bind('<KeyPress-0>', sub {
     # No optimization
-    $zinc->configure(-usedamage => 0);
+    $zinc->configure(-usedamage => 0); 
     $zinc->itemconfigure($label, -text => 'usedamage=0: Without OpenGL optimization');
 });
 $mw->bind('<KeyPress-1>', sub {
     # OpenGL optimization (best with Nvidia
-    $zinc->configure(-usedamage => 1);
+    $zinc->configure(-usedamage => 1); 
     $zinc->itemconfigure($label, -text => 'usedamage=1: With OpenGL optimization (better performance but works only with Nvidia cards)');
 });
 $mw->bind('<KeyPress-2>', sub {
     # OpenGL optimization (best with Nvidia
-    $zinc->configure(-usedamage => 2);
+    $zinc->configure(-usedamage => 2); 
     $zinc->itemconfigure($label, -text => 'usedamage=2: With OpenGL optimization (a bit slower but much better compatibility)');
 });
 
@@ -102,7 +102,7 @@ my $delta = 550/$N;
 
 my $commandFrame = $mw->Frame()->pack(-expand => 1, -fill => 'both');
 my $commandFrameTitle = $commandFrame->LabFrame(
-                                                -label => 'Automatic benchmark: trasnlate our circle from top-left to bottom-right ('.$N.' steps)',
+                                                -label => 'Automatic benchmark: translate our circle from top-left to bottom-right ('.$N.' steps)',
                                                 )->pack(
                                                         -side => 'bottom',
                                                         -fill => 'both',
diff --git a/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl b/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl
index cf117a5..c1b7acd 100644
--- a/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl
@@ -3,12 +3,12 @@
 # This short script tries to demonstrate with a simple example what you can 
 # do with Tk Zinc widget, in particular how to use group item, clipping, and
 # transformations. 
-# $Id$
+# $Id: wheelOfFortune.pl 1374 2004-03-05 12:36:08Z etienne $
 # this demo has been developped by D. Etienne etienne@cena.fr
 #
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1374 $ =~ /(\d+)\.(\d+)/);
 
 use Tk; 
 # Zinc module is loaded...
diff --git a/Perl/demos/Tk/demos/zinc_lib/window-contours.pl b/Perl/demos/Tk/demos/zinc_lib/window-contours.pl
index 9f16f95..6d1c1b2 100644
--- a/Perl/demos/Tk/demos/zinc_lib/window-contours.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/window-contours.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: window-contours.pl 1156 2003-09-15 12:25:06Z mertz $
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
 package window_contours; # for avoiding symbol collision between different demos
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/zoom.pl b/Perl/demos/Tk/demos/zinc_lib/zoom.pl
index a1ad925..3426275 100644
--- a/Perl/demos/Tk/demos/zinc_lib/zoom.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/zoom.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
-# $Id$
+# $Id: zoom.pl 1420 2004-04-30 11:35:18Z lecoanet $
 # This simple demo has been developped by C. Schlienger <celine@intuilab.com>
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1420 $ =~ /(\d+)\.(\d+)/);
 
 
 use Tk;
diff --git a/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm b/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm
index 723f3ec..518a181 100644
--- a/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm
+++ b/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm
@@ -1,13 +1,13 @@
 package SimpleRadarControls;
 
-# $Id$
+# $Id: SimpleRadarControls.pm 1156 2003-09-15 12:25:06Z mertz $
 # This simple radar has been initially developped by P. Lecoanet <lecoanet@cena.fr>
 # It has been adapted by C. Mertz <mertz@cena.fr> for demo purpose.
 # Thanks to Dunnigan,Jack [Edm]" <Jack.Dunnigan@EC.gc.ca> for a bug correction.
 
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/);
 
 $top = 1;
 
diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos
index 10a9c21..7fe06df 100644
--- a/Perl/demos/zinc-demos
+++ b/Perl/demos/zinc-demos
@@ -20,7 +20,7 @@ use vars qw/$COLOR $FONT_STYLE $POINT_SIZE $DEMO_FILE %DEMO_DESCRIPTION/;
 use strict;
 
 use vars qw( $VERSION );
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1889 $ =~ /(\d+)\.(\d+)/);
 
 my $version = $Tk::Zinc::VERSION;
 print "Tkzinc version: $version\n";
@@ -447,7 +447,7 @@ __END__
 
 =head1 NAME
 
-zinc-demos - Demonstration of TkZinc widget functionnality
+zinc-demos - Demonstration of TkZinc widget functionality
 
 =head1 SYNOPSYS
 
diff --git a/Perl/t/Test/Harness.pm b/Perl/t/Test/Harness.pm
index 0897455..fa8b966 100644
--- a/Perl/t/Test/Harness.pm
+++ b/Perl/t/Test/Harness.pm
@@ -1,5 +1,5 @@
 # -*- Mode: cperl; cperl-indent-level: 4 -*-
-# $Id$
+# $Id: Harness.pm 1173 2003-09-22 10:11:39Z mertz $
 
 package Test::Harness;
 
diff --git a/Perl/t/Test/Harness/Assert.pm b/Perl/t/Test/Harness/Assert.pm
index 3ee23e3..8c6da85 100644
--- a/Perl/t/Test/Harness/Assert.pm
+++ b/Perl/t/Test/Harness/Assert.pm
@@ -1,4 +1,4 @@
-# $Id$
+# $Id: Assert.pm 1173 2003-09-22 10:11:39Z mertz $
 
 package Test::Harness::Assert;
 
diff --git a/Perl/t/Test/Harness/Straps.pm b/Perl/t/Test/Harness/Straps.pm
index 4d971b7..08a756b 100644
--- a/Perl/t/Test/Harness/Straps.pm
+++ b/Perl/t/Test/Harness/Straps.pm
@@ -1,5 +1,5 @@
 # -*- Mode: cperl; cperl-indent-level: 4 -*-
-# $Id$
+# $Id: Straps.pm 1173 2003-09-22 10:11:39Z mertz $
 
 package Test::Harness::Straps;
 
diff --git a/Perl/t/TestLog.pm b/Perl/t/TestLog.pm
index 6c84604..0e9ac64 100644
--- a/Perl/t/TestLog.pm
+++ b/Perl/t/TestLog.pm
@@ -1,6 +1,6 @@
 package TestLog;
 
-# $Id$
+# $Id: TestLog.pm 1604 2005-01-16 10:27:35Z mertz $
 # These test facilities has been developped by C. Mertz <mertz@cena.fr>
 
 use IO::Handle;    # for autoflushing the logs
@@ -10,7 +10,7 @@ use Exporter;
 @ISA = qw(Exporter);
 
 use vars qw( $VERSION @ISA);
-($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+($VERSION) = sprintf("%d.%02d", q$Revision: 1604 $ =~ /(\d+)\.(\d+)/);
 @EXPORT = qw( openLog setZincLog log test_eval test_no_eval printableItem printableArray printableList
 	      equal_flat_arrays nequal_cplx_arrays);
 use strict;
diff --git a/Perl/t/test-methods.pl b/Perl/t/test-methods.pl
index 9becf7e..3875e38 100644
--- a/Perl/t/test-methods.pl
+++ b/Perl/t/test-methods.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: test-methods.pl 1151 2003-09-11 10:03:05Z mertz $
 # This non-regression test has been developped by C. Mertz <mertz@cena.fr>
 
 use Tk;
diff --git a/Perl/t/test-no-crash.pl b/Perl/t/test-no-crash.pl
index f1e22a6..987d780 100644
--- a/Perl/t/test-no-crash.pl
+++ b/Perl/t/test-no-crash.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: test-no-crash.pl 1603 2005-01-16 10:24:14Z mertz $
 # This non-regression / memory leak test has been developped by Christophe Mertz <mertz@intuilab.com>
 
 use Tk;
diff --git a/Perl/t/testdoc.pl b/Perl/t/testdoc.pl
index 590774f..e430b26 100644
--- a/Perl/t/testdoc.pl
+++ b/Perl/t/testdoc.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id$
+# $Id: testdoc.pl 801 2002-11-06 09:14:45Z mertz $
 # This script verifies the conformity of the reference manual with
 # some types informations available inside ZincTk
 # It has been developped by C. Mertz <mertz@cena.fr>