diff options
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Tk')
| -rw-r--r-- | Master/tlpkg/tlperl/site/lib/Tk/Config.pm | 2 | ||||
| -rw-r--r-- | Master/tlpkg/tlperl/site/lib/Tk/Event.pm | 4 | ||||
| -rw-r--r-- | Master/tlpkg/tlperl/site/lib/Tk/NoteBook.pm | 5 | ||||
| -rw-r--r-- | Master/tlpkg/tlperl/site/lib/Tk/Table.pod | 8 | ||||
| -rw-r--r-- | Master/tlpkg/tlperl/site/lib/Tk/getOpenFile.pod | 2 | ||||
| -rwxr-xr-x | Master/tlpkg/tlperl/site/lib/Tk/getSaveFile.pod | 11 |
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 |