summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tk/Text.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/Text.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tk/Text.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/Text.pm b/Master/tlpkg/tlperl/lib/Tk/Text.pm
index 2d87bbff49d..bef423c0afb 100644
--- a/Master/tlpkg/tlperl/lib/Tk/Text.pm
+++ b/Master/tlpkg/tlperl/lib/Tk/Text.pm
@@ -21,7 +21,7 @@ use Text::Tabs;
use vars qw($VERSION);
#$VERSION = sprintf '4.%03d', q$Revision: #24 $ =~ /\D(\d+)\s*$/;
-$VERSION = '4.029';
+$VERSION = '4.030';
use Tk qw(Ev $XS_VERSION);
use base qw(Tk::Clipboard Tk::Widget);
@@ -61,6 +61,8 @@ sub bindRdOnly
$mw->bind($class,'<Meta-B1-Motion>','NoOp');
$mw->bind($class,'<Meta-1>','NoOp');
$mw->bind($class,'<Alt-KeyPress>','NoOp');
+ $mw->bind($class,'<Meta-KeyPress>','NoOp');
+ $mw->bind($class,'<Control-KeyPress>','NoOp');
$mw->bind($class,'<Escape>','unselectAll');
$mw->bind($class,'<1>',['Button1',Ev('x'),Ev('y')]);