From 95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b Mon Sep 17 00:00:00 2001 From: mertz Date: Mon, 15 Sep 2003 12:25:06 +0000 Subject: adding a $VERSION variable to conform CPAN requirement --- Perl/Zinc/Graphics.pm | 3 +++ Perl/Zinc/Logo.pm | 6 ++++-- Perl/Zinc/Text.pm | 4 +++- Perl/Zinc/TraceUtils.pm | 3 +++ Perl/demos/Tk/demos/zinc_lib/MagicLens.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/all_options.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/atomic-groups.pl | 7 +++++-- Perl/demos/Tk/demos/zinc_lib/clipping.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/color-circular.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/color-path-and-conic.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/color-x.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/color-y.pl | 2 ++ Perl/demos/Tk/demos/zinc_lib/contours.pl | 5 ++++- Perl/demos/Tk/demos/zinc_lib/counter.pl | 6 ++++-- Perl/demos/Tk/demos/zinc_lib/curve_bezier.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/fillrule.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl | 7 +++++-- Perl/demos/Tk/demos/zinc_lib/groups_priority.pl | 6 +++++- Perl/demos/Tk/demos/zinc_lib/icon_zoom_resize.pl | 6 +++++- Perl/demos/Tk/demos/zinc_lib/items.pl | 4 +++- Perl/demos/Tk/demos/zinc_lib/labelformat.pl | 2 ++ Perl/demos/Tk/demos/zinc_lib/lines.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/mapinfo.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/path_tags.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/rotation.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/simple_interaction_track.pl | 8 ++++++-- Perl/demos/Tk/demos/zinc_lib/simpleradar.pl | 8 ++++++-- Perl/demos/Tk/demos/zinc_lib/testGraphics.pl | 4 ++++ Perl/demos/Tk/demos/zinc_lib/textInput.pl | 7 +++++-- Perl/demos/Tk/demos/zinc_lib/tiger.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 7 +++++-- Perl/demos/Tk/demos/zinc_lib/transforms.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/translation.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/triangles.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/wheelOfFortune.pl | 3 +++ Perl/demos/Tk/demos/zinc_lib/window-contours.pl | 7 +++++-- Perl/demos/Tk/demos/zinc_lib/zoom.pl | 3 +++ Perl/demos/Tk/demos/zinc_pm/SimpleRadarControls.pm | 6 +++++- Perl/demos/Tk/demos/zinc_pm/Wheel.pm | 3 +++ Perl/demos/zinc-demos | 3 +++ 40 files changed, 144 insertions(+), 24 deletions(-) (limited to 'Perl') 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 +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 +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 +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 +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 +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 +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 +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 +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 +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 # It has been adapted by C. Mertz 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 +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 from the original # work of JL. Vinot +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 +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 +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 +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 +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 # It has been adapted by C. Mertz for demo purpose. # Thanks to Dunnigan,Jack [Edm]" 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"; -- cgit v1.1