diff options
author | mertz | 2003-09-15 12:25:06 +0000 |
---|---|---|
committer | mertz | 2003-09-15 12:25:06 +0000 |
commit | 95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b (patch) | |
tree | 45cf09c86534821acb8563c9656143442f9c8508 /Perl/demos/Tk/demos/zinc_lib/items.pl | |
parent | 33be41530ab82b852aa9aa039b82055680c7ba27 (diff) | |
download | tkzinc-95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b.zip tkzinc-95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b.tar.gz tkzinc-95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b.tar.bz2 tkzinc-95cd9dcaa3572e78ae35b78ae2203395a8a2ab1b.tar.xz |
adding a $VERSION variable to conform CPAN requirement
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/items.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/items.pl | 4 |
1 files changed, 3 insertions, 1 deletions
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; |