Daniel Etienne pre release for Bullseye

37 files changed, 94 insertions, 90 deletions

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;