adding a $VERSION variable to conform CPAN requirement

40 files changed, 144 insertions, 24 deletions

diff --git a/Perl/Zinc/Graphics.pm b/Perl/Zinc/Graphics.pm
index e61c682..5495cb5 100644
--- a/Perl/Zinc/Graphics.pm
+++ b/Perl/Zinc/Graphics.pm
@@ -46,6 +46,9 @@
 #-----------------------------------------------------------------------------------
 package Tk::Zinc::Graphics;
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(&buildZincItem
diff --git a/Perl/Zinc/Logo.pm b/Perl/Zinc/Logo.pm
index 96d827b..486c904 100644
--- a/Perl/Zinc/Logo.pm
+++ b/Perl/Zinc/Logo.pm
@@ -1,4 +1,5 @@
-#!/usr/bin/perl
+package Tk::Zinc::Logo;
+
 #---------------------------------------------------------------
 #
 #  Module          : Logo.pm
@@ -10,7 +11,8 @@
 #
 #---------------------------------------------------------------
 
-package Tk::Zinc::Logo;
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
 
 use strict;
 use Carp;
diff --git a/Perl/Zinc/Text.pm b/Perl/Zinc/Text.pm
index 2cf4fd2..63e9573 100644
--- a/Perl/Zinc/Text.pm
+++ b/Perl/Zinc/Text.pm
@@ -1,6 +1,8 @@
-
 package Tk::Zinc::Text;
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 
 sub new {
   my $proto = shift;
diff --git a/Perl/Zinc/TraceUtils.pm b/Perl/Zinc/TraceUtils.pm
index 07b0413..55714f9 100644
--- a/Perl/Zinc/TraceUtils.pm
+++ b/Perl/Zinc/TraceUtils.pm
@@ -1,5 +1,8 @@
 package Tk::Zinc::TraceUtils;
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk;
 use strict;
 use Tk::Font;
diff --git a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
index dc844e3..0151de5 100644
--- a/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/MagicLens.pl
@@ -14,6 +14,9 @@
 # $Id: 
 #-----------------------------------------------------------------------------------
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk;
 use Tk::Zinc;
 use Tk::Zinc::Graphics;
diff --git a/Perl/demos/Tk/demos/zinc_lib/all_options.pl b/Perl/demos/Tk/demos/zinc_lib/all_options.pl
index f9e7f43..ac60e9f 100644
--- a/Perl/demos/Tk/demos/zinc_lib/all_options.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/all_options.pl
@@ -2,6 +2,9 @@
 # $Id$
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk;
 use Tk::Zinc;
 use Tk::Pane;
diff --git a/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl b/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl
index e6fbb4b..bab6b5f 100644
--- a/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl
@@ -2,14 +2,17 @@
 # $Id$
 # 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+)/);
+
 use Tk;
 use Tk::Zinc;
 use Tk::Checkbutton;
 use Tk::Label;
 use strict;
 
-package atomic_groups;
-
 my $defaultfont = '-adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-*';
 my $mw = MainWindow->new();
 my $zinc = $mw->Zinc(-width => 500, -height => 350,
diff --git a/Perl/demos/Tk/demos/zinc_lib/clipping.pl b/Perl/demos/Tk/demos/zinc_lib/clipping.pl
index 6e167d0..8b74894 100644
--- a/Perl/demos/Tk/demos/zinc_lib/clipping.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/clipping.pl
@@ -9,6 +9,9 @@ use Tk::Checkbutton;
 
 package clipping;
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 my $defaultfont = '-adobe-helvetica-bold-r-normal-*-120-*-*-*-*-*-*';
 my $mw = MainWindow->new();
 my $zinc = $mw->Zinc(-width => 700, -height => 600,
diff --git a/Perl/demos/Tk/demos/zinc_lib/color-circular.pl b/Perl/demos/Tk/demos/zinc_lib/color-circular.pl
index 100449f..a370c39 100644
--- a/Perl/demos/Tk/demos/zinc_lib/color-circular.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/color-circular.pl
@@ -2,6 +2,9 @@
 # $Id$
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk;
 use Tk::Zinc;
 use strict;
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 2d21f93..18c5356 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
@@ -2,6 +2,9 @@
 # $Id$
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk;
 use Tk::Zinc;
 use strict;
diff --git a/Perl/demos/Tk/demos/zinc_lib/color-x.pl b/Perl/demos/Tk/demos/zinc_lib/color-x.pl
index 072aaea..c914c4b 100644
--- a/Perl/demos/Tk/demos/zinc_lib/color-x.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/color-x.pl
@@ -2,6 +2,9 @@
 # $Id$
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk;
 use Tk::Zinc;
 use strict;
diff --git a/Perl/demos/Tk/demos/zinc_lib/color-y.pl b/Perl/demos/Tk/demos/zinc_lib/color-y.pl
index d16418a..bc45ebd 100644
--- a/Perl/demos/Tk/demos/zinc_lib/color-y.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/color-y.pl
@@ -2,6 +2,8 @@
 # $Id$
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\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 e9521e8..db0b960 100644
--- a/Perl/demos/Tk/demos/zinc_lib/contours.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/contours.pl
@@ -2,12 +2,15 @@
 # $Id$
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
+package contours; # for avoiding symbol collision between different demos
+
 use Tk;
 use Tk::Zinc;
 
 use strict;
 
-package contours; # for avoiding symbol collision between different demos
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\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 5eded67..a0e9534 100644
--- a/Perl/demos/Tk/demos/zinc_lib/counter.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/counter.pl
@@ -1,14 +1,16 @@
 #!/usr/bin/perl
 # This simple demo has been developped by C. Schlienger <celine@intuilab.com>
 
+package counter; # for avoiding symbol collision between different demos
+
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
 
 use Tk;
 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';
diff --git a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
index 9cbbca2..9e2a980 100644
--- a/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl
@@ -4,6 +4,9 @@
 
 ####### This file has been initially inspired from svg examples
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\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 4d2dc1a..bf32797 100644
--- a/Perl/demos/Tk/demos/zinc_lib/fillrule.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/fillrule.pl
@@ -10,6 +10,9 @@
 #######   -fillrule attribute of curves
 #######   contour, coords and clone method
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\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 3ba0e79..30d1755 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
@@ -38,12 +38,15 @@
 #
 #-----------------------------------------------------------------------------------
 
+package groups_in_ATC_strips; # for avoiding symbol collision between different demos
+
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk;
 use Tk::Zinc;
 use strict;
 
-package groups_in_ATC_strips; # for avoiding symbol collision between different demos
-
 # to find some images (used as textures) needed by this demo
 my $image_path = Tk->findINC('demos/zinc_data');
 
diff --git a/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl b/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl
index 580c3dd..e7f872d 100644
--- a/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/groups_priority.pl
@@ -2,12 +2,16 @@
 # $Id$
 # 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+)/);
+
 use Tk;
 use Tk::Zinc;
 
 use strict;
 
-package groups_priority;  # for avoiding symbol sharing between different demos
 my $mw = MainWindow->new();
 
 # The explanation displayed when running this demo
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 a6dc96e..fce11c4 100644
--- a/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl
@@ -2,11 +2,15 @@
 # $Id$
 # 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+)/);
+
 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();
diff --git a/Perl/demos/Tk/demos/zinc_lib/items.pl b/Perl/demos/Tk/demos/zinc_lib/items.pl
index 369c24e..067368b 100644
--- a/Perl/demos/Tk/demos/zinc_lib/items.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/items.pl
@@ -2,6 +2,9 @@
 # $Id$
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk;
 use Tk::Zinc;
 use strict;
@@ -12,7 +15,6 @@ my $zinc = $mw->Zinc(-width => 700, -height => 600,
 		     -font => "10x20", # usually fonts are sets in resources
 		                       # but for this example it is set in the code!
 		     -borderwidth => 3, -relief => 'sunken',
-#		     -backcolor => "white",
 #		     -render => 1,
 		     )->pack;
 
diff --git a/Perl/demos/Tk/demos/zinc_lib/labelformat.pl b/Perl/demos/Tk/demos/zinc_lib/labelformat.pl
index 55e65ab..465eb07 100644
--- a/Perl/demos/Tk/demos/zinc_lib/labelformat.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/labelformat.pl
@@ -2,6 +2,8 @@
 # $Id$
 # This simple demo has been developped by C. Mertz <mertz@cena.fr>
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\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 26d52c6..f415329 100644
--- a/Perl/demos/Tk/demos/zinc_lib/lines.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/lines.pl
@@ -2,6 +2,9 @@
 # $Id$
 # these simple samples have been developped by C. Mertz mertz@cena.fr
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk;
 use Tk::Zinc;
 use strict;
diff --git a/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl b/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl
index 2daccd8..6518c4d 100644
--- a/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/mapinfo.pl
@@ -2,6 +2,9 @@
 # $Id$
 # This simple demo has been developped by C. Schlienger <celine@intuilab.com>
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk;
 use Tk::Zinc;
 use strict;
diff --git a/Perl/demos/Tk/demos/zinc_lib/path_tags.pl b/Perl/demos/Tk/demos/zinc_lib/path_tags.pl
index ad1d7a8..5ce1746 100644
--- a/Perl/demos/Tk/demos/zinc_lib/path_tags.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/path_tags.pl
@@ -3,6 +3,9 @@
 # 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+)/);
+
 use Tk;
 use Tk::Zinc;
 use strict;
diff --git a/Perl/demos/Tk/demos/zinc_lib/rotation.pl b/Perl/demos/Tk/demos/zinc_lib/rotation.pl
index f82119a..f155e49 100644
--- a/Perl/demos/Tk/demos/zinc_lib/rotation.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/rotation.pl
@@ -2,6 +2,9 @@
 # $Id$
 # This simple demo has been developped by C. Schlienger <celine@intuilab.com>
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 
 use Tk;
 use Tk::Zinc;
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 08d25b1..2ceb925 100644
--- a/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl
@@ -2,12 +2,16 @@
 # $Id$
 # 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+)/);
+
+
 use Tk;
 use Tk::Zinc;
 use strict;
 
-package simple_interaction_track; # for avoiding symbol collision between different demos
-
 my $mw = MainWindow->new();
 
 
diff --git a/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl b/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl
index 8912092..1aab421 100644
--- a/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl
@@ -3,6 +3,12 @@
 # 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+)/);
+
+
 use Tk;
 use Tk::Zinc;
 
@@ -11,8 +17,6 @@ use strict;
 use lib Tk->findINC('demos/zinc_pm');
 use SimpleRadarControls;
 
-package simpleradar; # for avoiding symbol collision between different demos
-
 # to find some maps needed by these demo
 my $map_path = Tk->findINC('demos/zinc_data');
 
diff --git a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl
index be7675c..f20ae69 100644
--- a/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/testGraphics.pl
@@ -9,6 +9,10 @@
 # $Id: 
 #-----------------------------------------------------------------------------------
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
+
 use Tk;
 use Tk::Zinc;
 use Tk::Zinc::Graphics;
diff --git a/Perl/demos/Tk/demos/zinc_lib/textInput.pl b/Perl/demos/Tk/demos/zinc_lib/textInput.pl
index 96d21d7..2422a11 100644
--- a/Perl/demos/Tk/demos/zinc_lib/textInput.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/textInput.pl
@@ -2,6 +2,11 @@
 # $Id$
 # 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+)/);
+
 
 use Tk;
 use Tk::Zinc;
@@ -9,8 +14,6 @@ use strict;
 
 use Tk::ZincText;  # the module for facilitating text input with zinc
 
-package textInput; # for avoiding symbol re-use between different demos
-
 my $mw = MainWindow->new();
 
 ###########################################
diff --git a/Perl/demos/Tk/demos/zinc_lib/tiger.pl b/Perl/demos/Tk/demos/zinc_lib/tiger.pl
index 218c764..5e0ef15 100644
--- a/Perl/demos/Tk/demos/zinc_lib/tiger.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/tiger.pl
@@ -4,6 +4,9 @@
 ### the idea of using the shape extension (as possible with zinc) was
 ### done by Daniel Etienne! Thx!
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk::Zinc;
 use ZincDebug;
 
diff --git a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
index 55a0621..86f419f 100644
--- a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl
@@ -3,13 +3,16 @@
 # 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+)/);
+
 use Tk;
 use Tk::Zinc;
 use strict;
 use Tk::Zinc::Logo; # this module implements a class which instances are Zinc logo!
 
-package tkZincLogo; # for avoiding symbol collision between different demos
-
 my $defaultfont = '-adobe-helvetica-bold-r-normal-*-140-*-*-*-*-*-*';
 my $mw = MainWindow->new();
 my $text = $mw->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid true
diff --git a/Perl/demos/Tk/demos/zinc_lib/transforms.pl b/Perl/demos/Tk/demos/zinc_lib/transforms.pl
index 49187bf..4a5655c 100644
--- a/Perl/demos/Tk/demos/zinc_lib/transforms.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/transforms.pl
@@ -3,6 +3,9 @@
 # $Id$
 # This simple demo has been developped by P. Lecoanet <lecoanet@cena.fr>
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 #
 # TODO:
 #
diff --git a/Perl/demos/Tk/demos/zinc_lib/translation.pl b/Perl/demos/Tk/demos/zinc_lib/translation.pl
index 2aaed2b..157ded8 100644
--- a/Perl/demos/Tk/demos/zinc_lib/translation.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/translation.pl
@@ -2,6 +2,9 @@
 # $Id$
 # This simple demo has been developped by C. Schlienger <celine@intuilab.com>
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/triangles.pl b/Perl/demos/Tk/demos/zinc_lib/triangles.pl
index 2f6350f..ed1d4cd 100644
--- a/Perl/demos/Tk/demos/zinc_lib/triangles.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/triangles.pl
@@ -2,6 +2,9 @@
 # $Id$
 # 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+)/);
+
 use Tk;
 use Tk::Zinc;
 use strict;
diff --git a/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl b/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl
index f2340f9..40ed701 100644
--- a/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl
@@ -7,6 +7,9 @@
 # this demo has been developped by D. Etienne etienne@cena.fr
 #
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use Tk; 
 # Zinc module is loaded...
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_lib/window-contours.pl b/Perl/demos/Tk/demos/zinc_lib/window-contours.pl
index c51782c..9f16f95 100644
--- a/Perl/demos/Tk/demos/zinc_lib/window-contours.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/window-contours.pl
@@ -2,13 +2,16 @@
 # $Id$
 # 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+)/);
+
 use Tk;
 use Tk::Zinc;
 
 use strict;
 
-package window_contours; # for avoiding symbol collision between different demos
-
 my $mw = MainWindow->new();
 
 
diff --git a/Perl/demos/Tk/demos/zinc_lib/zoom.pl b/Perl/demos/Tk/demos/zinc_lib/zoom.pl
index a97dd5e..ba63d96 100644
--- a/Perl/demos/Tk/demos/zinc_lib/zoom.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/zoom.pl
@@ -2,6 +2,9 @@
 # $Id$
 # This simple demo has been developped by C. Schlienger <celine@intuilab.com>
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 
 use Tk;
 use Tk::Zinc;
diff --git a/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm b/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm
index 30fffb4..723f3ec 100644
--- a/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm
+++ b/Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm
@@ -1,9 +1,13 @@
+package SimpleRadarControls;
+
 # $Id$
 # 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.
 
-package SimpleRadarControls;
+
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
 
 $top = 1;
 
diff --git a/Perl/demos/Tk/demos/zinc_pm/Wheel.pm b/Perl/demos/Tk/demos/zinc_pm/Wheel.pm
index 21ea7a6..121b450 100644
--- a/Perl/demos/Tk/demos/zinc_pm/Wheel.pm
+++ b/Perl/demos/Tk/demos/zinc_pm/Wheel.pm
@@ -1,5 +1,8 @@
 package Wheel;
 
+use vars qw( $VERSION );
+($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
+
 use strict 'vars';
 use Carp;
 
diff --git a/Perl/demos/zinc-demos b/Perl/demos/zinc-demos
index 243c262..6846526 100644
--- a/Perl/demos/zinc-demos
+++ b/Perl/demos/zinc-demos
@@ -17,6 +17,9 @@ use vars qw/$BRAKES $LIGHTS $OIL $SOBER $TRANS $WIPERS/;
 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+)/);
+
 my $version = $Tk::Zinc::VERSION;
 print "Tkzinc version: $version\n";