increased $VERSION

git-svn-id: https://svn.perl.org/modules/Tk/trunk@9060 50811bd7-b8ce-0310-adc1-d9db26280581 r1712@biokovo: eserte | 2007-02-10 13:28:35 +0100
eserte · May 29, 2010 · 81d27cd · 81d27cd
1 parent 03ca2ed
commit 81d27cd
Show file tree

Hide file tree

Showing 31 changed files with 32 additions and 36 deletions.
diff --git a/Event/Event.pm b/Event/Event.pm
@@ -1,7 +1,7 @@
 package Tk::Event;
 use vars qw($VERSION $XS_VERSION @EXPORT_OK);
 END { CleanupGlue() }
-$VERSION = sprintf '4.%03d', q$Revision: #15 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.016'; # was: sprintf '4.%03d', q$Revision: #15 $ =~ /\D(\d+)\s*$/;
 $XS_VERSION = '804.027_001';
 $XS_VERSION = eval $XS_VERSION;
 use base  qw(Exporter);

diff --git a/JPEG/JPEG.pm b/JPEG/JPEG.pm
@@ -2,7 +2,7 @@ package Tk::JPEG;
 require DynaLoader;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #2$ =~ /\D(\d+)\s*$/;
+$VERSION = '4.003'; # was: sprintf '4.%03d', q$Revision: #2$ =~ /\D(\d+)\s*$/;
 use Tk 800.015;
 require Tk::Image;
 require Tk::Photo;

diff --git a/Menubutton/Menubutton.pm b/Menubutton/Menubutton.pm
@@ -17,7 +17,7 @@ package Tk::Menubutton;
 require Tk;
 
 use vars qw($VERSION);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/Menubutton/Menubutton.pm#4 $
+$VERSION = '4.005'; # $Id: //depot/Tkutf8/Menubutton/Menubutton.pm#4 $
 
 use base  qw(Tk::Widget);
 

diff --git a/PNG/PNG.pm b/PNG/PNG.pm
@@ -2,7 +2,7 @@ package Tk::PNG;
 require DynaLoader;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #3 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.004'; # was: sprintf '4.%03d', q$Revision: #3 $ =~ /\D(\d+)\s*$/;
 
 use Tk 800.005;
 require Tk::Image;

diff --git a/TextList/Reindex.pm b/TextList/Reindex.pm
@@ -2,7 +2,7 @@ package Tk::Reindex;
 
 
 use vars qw($VERSION);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/TextList/Reindex.pm#4 $
+$VERSION = '4.005'; # $Id: //depot/Tkutf8/TextList/Reindex.pm#4 $
 
 use Tk;
 use base qw(Tk::Derived);

diff --git a/TextList/TextList.pm b/TextList/TextList.pm
@@ -25,16 +25,12 @@ package Tk::TextList;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '4.005'; # $Id: //depot/Tkutf8/TextList/TextList.pm#5 $
-
-#XXXdel: use Tk::Reindex qw(Tk::ROText); #XXXdel: ReindexedROText);
+$VERSION = '4.006'; # $Id: //depot/Tkutf8/TextList/TextList.pm#5 $
 
 use base qw(Tk::Derived Tk::ReindexedROText );
 
 use Tk qw (Ev);
 
-#XXX del: use base qw(Tk::ReindexedROText);
-
 Construct Tk::Widget 'TextList';
 
 #######################################################################

diff --git a/Tixish/Balloon.pm b/Tixish/Balloon.pm
@@ -15,7 +15,7 @@
 package Tk::Balloon;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #10 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.011'; # was: sprintf '4.%03d', q$Revision: #10 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw(Ev Exists);
 use Carp;

diff --git a/Tixish/BrowseEntry.pm b/Tixish/BrowseEntry.pm
@@ -8,7 +8,7 @@
 package Tk::BrowseEntry;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #13 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.014'; # was: sprintf '4.%03d', q$Revision: #13 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw(Ev);
 use Carp;

diff --git a/Tixish/DialogBox.pm b/Tixish/DialogBox.pm
@@ -9,7 +9,7 @@ use strict;
 use Carp;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #13 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.014'; # was: sprintf '4.%03d', q$Revision: #13 $ =~ /\D(\d+)\s*$/;
 
 use base  qw(Tk::Toplevel);
 

diff --git a/Tixish/Tree.pm b/Tixish/Tree.pm
@@ -6,7 +6,7 @@ package Tk::Tree;
 # Chris Dean <ctdean@cogit.com>
 
 use vars qw($VERSION);
-$VERSION = '4.005'; # $Id: //depot/Tkutf8/Tixish/Tree.pm#5 $
+$VERSION = '4.006'; # $Id: //depot/Tkutf8/Tixish/Tree.pm#5 $
 
 use Tk ();
 use Tk::Derived;

diff --git a/Tk/Adjuster.pm b/Tk/Adjuster.pm
@@ -1,7 +1,7 @@
 package Tk::Adjuster;
 
 use vars qw($VERSION);
-$VERSION = '4.007'; # $Id: //depot/Tkutf8/Tk/Adjuster.pm#7 $
+$VERSION = '4.008'; # $Id: //depot/Tkutf8/Tk/Adjuster.pm#7 $
 
 use base  qw(Tk::Frame);
 

diff --git a/Tk/Animation.pm b/Tk/Animation.pm
@@ -1,7 +1,7 @@
 package Tk::Animation;
 
 use vars qw($VERSION);
-$VERSION = '4.006'; # $Id: //depot/Tkutf8/Tk/Animation.pm#8 $
+$VERSION = '4.007'; # $Id: //depot/Tkutf8/Tk/Animation.pm#8 $
 
 use Tk::Photo;
 use base  qw(Tk::Photo);

diff --git a/Tk/Button.pm b/Tk/Button.pm
@@ -7,7 +7,7 @@ package Tk::Button;
 # This program is free software; you can redistribute it and/or
 
 use vars qw($VERSION);
-$VERSION = '4.008'; # $Id: //depot/Tkutf8/Tk/Button.pm#8 $
+$VERSION = '4.009'; # $Id: //depot/Tkutf8/Tk/Button.pm#8 $
 
 # modify it under the same terms as Perl itself, subject
 # to additional disclaimer in license.terms due to partial

diff --git a/Tk/CmdLine.pm b/Tk/CmdLine.pm
@@ -13,7 +13,7 @@ package Tk::CmdLine; # -*-Perl-*-
 #/----------------------------------------------------------------------------//
 
 use vars qw($VERSION);
-$VERSION = '4.006'; # $Id: //depot/Tkutf8/Tk/CmdLine.pm#6 $
+$VERSION = '4.007'; # $Id: //depot/Tkutf8/Tk/CmdLine.pm#6 $
 
 use 5.004;
 

diff --git a/Tk/ColorEditor.pm b/Tk/ColorEditor.pm
@@ -1,8 +1,8 @@
-package Tk::ColorSelect;
+package Tk::ColorSelect; # XXX why is this the Tk::ColorSelect package?
 use strict;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.009'; # was: sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
 
 use Tk qw(Ev);
 

diff --git a/Tk/Dialog.pm b/Tk/Dialog.pm
@@ -1,7 +1,7 @@
 package Tk::Dialog;
 
 use vars qw($VERSION);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/Dialog.pm#4 $
+$VERSION = '4.005'; # $Id: //depot/Tkutf8/Tk/Dialog.pm#4 $
 
 # Dialog - a translation of `tk_dialog' from Tcl/Tk to TkPerl (based on
 # John Stoffel's idea).

diff --git a/Tk/FileSelect.pm b/Tk/FileSelect.pm
@@ -1,7 +1,7 @@
 package Tk::FileSelect;
 
 use vars qw($VERSION @EXPORT_OK);
-$VERSION = sprintf '4.%03d', q$Revision: #15 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.016'; # was: sprintf '4.%03d', q$Revision: #15 $ =~ /\D(\d+)\s*$/;
 @EXPORT_OK = qw(glob_to_re);
 
 use Tk qw(Ev);

diff --git a/Tk/MMutil.pm b/Tk/MMutil.pm
@@ -9,7 +9,7 @@ use Carp;
 use File::Basename;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #21 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.022'; # was: sprintf '4.%03d', q$Revision: #21 $ =~ /\D(\d+)\s*$/;
 
 # warn __FILE__." $VERSION\n";
 

diff --git a/Tk/MainWindow.pm b/Tk/MainWindow.pm
@@ -8,7 +8,7 @@ BEGIN { @MainWindow::ISA = 'Tk::MainWindow' }
 use strict;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #12 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.013'; # was: sprintf '4.%03d', q$Revision: #12 $ =~ /\D(\d+)\s*$/;
 
 use Tk::CmdLine;
 use Tk qw(catch);

diff --git a/Tk/Menu.pm b/Tk/Menu.pm
@@ -21,7 +21,7 @@ require Tk::Menu::Item;
 
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #21 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.022'; # was: sprintf '4.%03d', q$Revision: #21 $ =~ /\D(\d+)\s*$/;
 
 use strict;
 

diff --git a/Tk/Menu/Item.pm b/Tk/Menu/Item.pm
@@ -6,7 +6,7 @@ use Carp;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/Menu/Item.pm#4 $
+$VERSION = '4.005'; # $Id: //depot/Tkutf8/Tk/Menu/Item.pm#4 $
 
 sub PreInit
 {

diff --git a/Tk/Optionmenu.pm b/Tk/Optionmenu.pm
@@ -7,7 +7,7 @@ require Tk::Menu;
 use Carp;
 
 use vars qw($VERSION);
-$VERSION = '4.013'; # $Id: //depot/Tkutf8/Tk/Optionmenu.pm#13 $
+$VERSION = '4.014'; # $Id: //depot/Tkutf8/Tk/Optionmenu.pm#13 $
 
 use base  qw(Tk::Derived Tk::Menubutton);
 

diff --git a/Tk/ProgressBar.pm b/Tk/ProgressBar.pm
@@ -1,7 +1,7 @@
 package Tk::ProgressBar;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #10 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.011'; # was: sprintf '4.%03d', q$Revision: #10 $ =~ /\D(\d+)\s*$/;
 
 use Tk;
 use Tk::Canvas;

diff --git a/Tk/Submethods.pm b/Tk/Submethods.pm
@@ -1,7 +1,7 @@
 package Tk::Submethods;
 
 use vars qw($VERSION);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/Submethods.pm#4 $
+$VERSION = '4.005'; # $Id: //depot/Tkutf8/Tk/Submethods.pm#4 $
 
 sub import
 {

diff --git a/Tk/Table.pm b/Tk/Table.pm
@@ -5,7 +5,7 @@ package Tk::Table;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #12 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.013'; # was: sprintf '4.%03d', q$Revision: #12 $ =~ /\D(\d+)\s*$/;
 
 use Tk::Pretty;
 use AutoLoader;

diff --git a/Tk/Trace.pm b/Tk/Trace.pm
@@ -1,7 +1,7 @@
 package Tk::Trace;
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.008'; # was: sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;
 
 use Carp;
 use Tie::Watch;

diff --git a/Tk/Widget.pm b/Tk/Widget.pm
@@ -3,7 +3,7 @@
 # modify it under the same terms as Perl itself.
 package Tk::Widget;
 use vars qw($VERSION @DefaultMenuLabels);
-$VERSION = sprintf '4.%03d', q$Revision: #30 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.031'; # was: sprintf '4.%03d', q$Revision: #30 $ =~ /\D(\d+)\s*$/;
 
 require Tk;
 use AutoLoader;

diff --git a/Tk/Wm.pm b/Tk/Wm.pm
@@ -14,7 +14,7 @@ use strict qw(vars);
 
 
 use vars qw($VERSION);
-$VERSION = sprintf '4.%03d', q$Revision: #14 $ =~ /\D(\d+)\s*$/;
+$VERSION = '4.015'; # was: sprintf '4.%03d', q$Revision: #14 $ =~ /\D(\d+)\s*$/;
 
 use Tk::Submethods;
 

diff --git a/Tk/Xrm.pm b/Tk/Xrm.pm
@@ -1,7 +1,7 @@
 package Tk::Xrm;
 
 use vars qw($VERSION);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/Xrm.pm#4 $
+$VERSION = '4.005'; # $Id: //depot/Tkutf8/Tk/Xrm.pm#4 $
 
 use Tk ();
 1;

diff --git a/Tk/widgets.pm b/Tk/widgets.pm
@@ -2,7 +2,7 @@ package Tk::widgets;
 use Carp;
 
 use vars qw($VERSION);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/Tk/widgets.pm#4 $
+$VERSION = '4.005'; # $Id: //depot/Tkutf8/Tk/widgets.pm#4 $
 
 sub import
 {

diff --git a/Xlib/X/X.pm b/Xlib/X/X.pm
@@ -3,7 +3,7 @@ package Tk::X;
 use strict;
 use Carp;
 use vars qw($VERSION @EXPORT $AUTOLOAD);
-$VERSION = '4.004'; # $Id: //depot/Tkutf8/Xlib/X/X.pm#4 $
+$VERSION = '4.005'; # $Id: //depot/Tkutf8/Xlib/X/X.pm#4 $
 use Tk qw($XS_VERSION);
 
 require Exporter;