diff options
Diffstat (limited to 'Perl/Zinc')
-rw-r--r-- | Perl/Zinc/Debug.pm | 8 | ||||
-rw-r--r-- | Perl/Zinc/Graphics.pm | 4 | ||||
-rw-r--r-- | Perl/Zinc/Logo.pm | 4 | ||||
-rw-r--r-- | Perl/Zinc/Text.pm | 2 | ||||
-rw-r--r-- | Perl/Zinc/Trace.pm | 4 | ||||
-rw-r--r-- | Perl/Zinc/TraceErrors.pm | 4 | ||||
-rw-r--r-- | Perl/Zinc/TraceUtils.pm | 2 |
7 files changed, 14 insertions, 14 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm index 71a4d18..b1c0118 100644 --- a/Perl/Zinc/Debug.pm +++ b/Perl/Zinc/Debug.pm @@ -4,12 +4,12 @@ # # Author : Daniel Etienne <etienne@cena.fr> # -# $Id$ +# $Id: Debug.pm 1650 2005-05-12 15:51:12Z etienne $ #--------------------------------------------------------------------------- package Tk::Zinc::Debug; use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1650 $ =~ /(\d+)\.(\d+)/); use strict 'vars'; use vars qw(@ISA @EXPORT @EXPORT_OK $WARNING $endoptions); @@ -2978,7 +2978,7 @@ Defines the display format of option's values. Default is 'row'. =item E<32>E<32>E<32>B<-snapshotBasename> => string -Defines the basename used for the file containing the snaphshot. The filename will be <currentdir>/basename<n>.png Defaulted to 'zincsnapshot'. +Defines the basename used for the file containing the snaphshot. The filename will be <currentdir>/basename<n>.png . Defaulted to 'zincsnapshot'. =item E<32>E<32>E<32>B<-expandTagsField> => 0 | 1 @@ -3014,7 +3014,7 @@ Jan 20 2003 : item's attributes can be edited. Jan 14 2003 : ZincDebug can be loaded at runtime using the -M perl option without any change in the application's code. -Nov 6 2002 : some additional informations (like tags or other attributes values) can be displayed in the items tree. Add feedback when selected item is not visible because outside window. +Nov 6 2002 : some additional information (like tags or other attributes values) can be displayed in the items tree. Add feedback when selected item is not visible because outside window. Sep 2 2002 : add the tree() function diff --git a/Perl/Zinc/Graphics.pm b/Perl/Zinc/Graphics.pm index 8305c81..9ccdef7 100644 --- a/Perl/Zinc/Graphics.pm +++ b/Perl/Zinc/Graphics.pm @@ -67,12 +67,12 @@ #----------------------------------------------------------------------------------- # Authors: Jean-Luc Vinot <vinot@cena.fr> # -# $Id$ +# $Id: Graphics.pm 1408 2004-04-16 09:06:55Z mertz $ #----------------------------------------------------------------------------------- package Tk::Zinc::Graphics; use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1408 $ =~ /(\d+)\.(\d+)/); require Exporter; @ISA = qw(Exporter); diff --git a/Perl/Zinc/Logo.pm b/Perl/Zinc/Logo.pm index 486c904..276ebaf 100644 --- a/Perl/Zinc/Logo.pm +++ b/Perl/Zinc/Logo.pm @@ -3,7 +3,7 @@ package Tk::Zinc::Logo; #--------------------------------------------------------------- # # Module : Logo.pm -# $Id$ +# $Id: Logo.pm 1156 2003-09-15 12:25:06Z mertz $ # # Copyright (C) 2001-2003 # Centre d'Études de la Navigation Aérienne @@ -12,7 +12,7 @@ package Tk::Zinc::Logo; #--------------------------------------------------------------- use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/); use strict; use Carp; diff --git a/Perl/Zinc/Text.pm b/Perl/Zinc/Text.pm index 63e9573..0c27da5 100644 --- a/Perl/Zinc/Text.pm +++ b/Perl/Zinc/Text.pm @@ -1,7 +1,7 @@ package Tk::Zinc::Text; use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1156 $ =~ /(\d+)\.(\d+)/); sub new { diff --git a/Perl/Zinc/Trace.pm b/Perl/Zinc/Trace.pm index dc3c496..e19c722 100644 --- a/Perl/Zinc/Trace.pm +++ b/Perl/Zinc/Trace.pm @@ -17,7 +17,7 @@ # This may be very usefull when your application segfaults and # when you have no idea where this happens in your code. # -# $Id$ +# $Id: Trace.pm 1658 2005-05-16 07:23:18Z lecoanet $ # # To trap Tk::Zinc errors, use rather the Tk::Zinc::TraceErrors package. # @@ -27,7 +27,7 @@ package Tk::Zinc::Trace; use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1658 $ =~ /(\d+)\.(\d+)/); use vars qw( $ForReplay ); diff --git a/Perl/Zinc/TraceErrors.pm b/Perl/Zinc/TraceErrors.pm index 2ad524c..43ff71b 100644 --- a/Perl/Zinc/TraceErrors.pm +++ b/Perl/Zinc/TraceErrors.pm @@ -18,7 +18,7 @@ # module name, the line number and the complete error messages are reported # for each error. # -# $Id$ +# $Id: TraceErrors.pm 1658 2005-05-16 07:23:18Z lecoanet $ # # When you have no idea where this happens in your code or when your # application segfaults, use the Tk::Zinc::Trace package which traces every @@ -30,7 +30,7 @@ package Tk::Zinc::TraceErrors; use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1658 $ =~ /(\d+)\.(\d+)/); use Tk; use strict; diff --git a/Perl/Zinc/TraceUtils.pm b/Perl/Zinc/TraceUtils.pm index b7baa54..c77525c 100644 --- a/Perl/Zinc/TraceUtils.pm +++ b/Perl/Zinc/TraceUtils.pm @@ -1,7 +1,7 @@ package Tk::Zinc::TraceUtils; use vars qw( $VERSION ); -($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); +($VERSION) = sprintf("%d.%02d", q$Revision: 1726 $ =~ /(\d+)\.(\d+)/); use Tk; use Tk::Font; |