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