summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/Tk
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Tk')
-rw-r--r--Master/tlpkg/tlperl/site/lib/Tk/Config.pm2
-rw-r--r--Master/tlpkg/tlperl/site/lib/Tk/Event.pm4
-rw-r--r--Master/tlpkg/tlperl/site/lib/Tk/NoteBook.pm5
-rw-r--r--Master/tlpkg/tlperl/site/lib/Tk/Table.pod8
-rw-r--r--Master/tlpkg/tlperl/site/lib/Tk/getOpenFile.pod2
-rwxr-xr-xMaster/tlpkg/tlperl/site/lib/Tk/getSaveFile.pod11
6 files changed, 23 insertions, 9 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/Tk/Config.pm b/Master/tlpkg/tlperl/site/lib/Tk/Config.pm
index a6b04934cf0..66c66a1aa5a 100644
--- a/Master/tlpkg/tlperl/site/lib/Tk/Config.pm
+++ b/Master/tlpkg/tlperl/site/lib/Tk/Config.pm
@@ -2,7 +2,7 @@
package Tk::Config;
require Exporter;
use base qw(Exporter);
-$VERSION = '804.033';
+$VERSION = '804.034';
$inc = '-I$(TKDIR) -I$(TKDIR)/pTk/mTk/xlib';
$define = '';
$xlib = '';
diff --git a/Master/tlpkg/tlperl/site/lib/Tk/Event.pm b/Master/tlpkg/tlperl/site/lib/Tk/Event.pm
index f00a0b5bdbe..39ad4c91fbf 100644
--- a/Master/tlpkg/tlperl/site/lib/Tk/Event.pm
+++ b/Master/tlpkg/tlperl/site/lib/Tk/Event.pm
@@ -1,8 +1,8 @@
package Tk::Event;
use vars qw($VERSION $XS_VERSION @EXPORT_OK);
END { CleanupGlue() }
-$VERSION = '4.033';
-$XS_VERSION = '804.033';
+$VERSION = '4.035';
+$XS_VERSION = '804.034';
$XS_VERSION =~ s{_}{};
use base qw(Exporter);
use XSLoader;
diff --git a/Master/tlpkg/tlperl/site/lib/Tk/NoteBook.pm b/Master/tlpkg/tlperl/site/lib/Tk/NoteBook.pm
index a1f2eedb09e..8a24621ba59 100644
--- a/Master/tlpkg/tlperl/site/lib/Tk/NoteBook.pm
+++ b/Master/tlpkg/tlperl/site/lib/Tk/NoteBook.pm
@@ -10,7 +10,7 @@ package Tk::NoteBook;
use vars qw($VERSION);
#$VERSION = sprintf '4.%03d', q$Revision: #9 $ =~ /\D(\d+)\s*$/;
-$VERSION = '4.011';
+$VERSION = '4.012';
require Tk::NBFrame;
use base qw(Tk::Derived Tk::NBFrame);
@@ -323,10 +323,11 @@ sub FindMenu {
my $page;
foreach $page (@{$w->{'windows'}}) {
my $i = $w->pagecget($page, -underline);
+ next if $i < 0;
my $l = $w->pagecget($page, -label);
next if (not defined $l);
my $c = substr($l, $i, 1);
- if ($char =~ /$c/i) {
+ if ($char =~ /\Q$c/i) {
if ($w->pagecget($page, -state) ne 'disabled') {
$w->raise($page);
return $w;
diff --git a/Master/tlpkg/tlperl/site/lib/Tk/Table.pod b/Master/tlpkg/tlperl/site/lib/Tk/Table.pod
index 02b6690b869..fa9d8c3658e 100644
--- a/Master/tlpkg/tlperl/site/lib/Tk/Table.pod
+++ b/Master/tlpkg/tlperl/site/lib/Tk/Table.pod
@@ -61,8 +61,10 @@ specified by -rows (default 10), and number of columns specified by -columns
If the Table is told it can take the keyboard focus then cursor and scroll
keys scroll the displayed widgets.
-The Table will create and manage its own scrollbars if requested via
--scrollbars.
+C<-scrollbars>. By default, scrollbars will be added C<nw>.
+To disable scrollbars, set C<-scrollbars> to an empty string:
+
+ $table = $parent->Table(-scrollbars => '', ...);
The table can be emptied using
@@ -71,7 +73,7 @@ The table can be emptied using
the widgets which were in the table are destroyed.
-The Tk::Table widget is derived from a Tk::Frame, so inherits all its
+The Tk::Table widget is derived from a L<Tk::Frame>, so inherits all its
configure options.
The default focus traversal is giving the focus only to the table
diff --git a/Master/tlpkg/tlperl/site/lib/Tk/getOpenFile.pod b/Master/tlpkg/tlperl/site/lib/Tk/getOpenFile.pod
index 828634bdf34..d4dc62075d3 100644
--- a/Master/tlpkg/tlperl/site/lib/Tk/getOpenFile.pod
+++ b/Master/tlpkg/tlperl/site/lib/Tk/getOpenFile.pod
@@ -4,7 +4,7 @@
=head1 NAME
-Tk::getOpenFile, Tk::getSaveFile - pop up a dialog box for the user to select a file to open or save.
+Tk::getOpenFile - pop up a dialog box for the user to select a file to open.
=for category Popups and Dialogs
diff --git a/Master/tlpkg/tlperl/site/lib/Tk/getSaveFile.pod b/Master/tlpkg/tlperl/site/lib/Tk/getSaveFile.pod
new file mode 100755
index 00000000000..af9e088def5
--- /dev/null
+++ b/Master/tlpkg/tlperl/site/lib/Tk/getSaveFile.pod
@@ -0,0 +1,11 @@
+=head1 NAME
+
+Tk::getSaveFile - pop up a dialog box for the user to select a file to save.
+
+=for category Popups and Dialogs
+
+=head1 DESCRIPTION
+
+See L<Tk::getOpenFile>.
+
+=cut