diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/groups_in_ATC_strips.pl | 4 |
1 files changed, 2 insertions, 2 deletions
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; |