summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2010-01-04 13:53:17 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2010-01-04 13:53:17 (GMT)
commit3e1b00bdae920ecf925c7b135fa6d92f1ef3c51a (patch)
tree293618c53ef7dde477f186bebd6b2ecfff064de3 /library
parent5c754a2a7dbb6305a140012bd24f68e32b2375ff (diff)
downloadtk-3e1b00bdae920ecf925c7b135fa6d92f1ef3c51a.zip
tk-3e1b00bdae920ecf925c7b135fa6d92f1ef3c51a.tar.gz
tk-3e1b00bdae920ecf925c7b135fa6d92f1ef3c51a.tar.bz2
Fix keyboard access to console menu and restored broken comment.
Diffstat (limited to 'library')
-rw-r--r--library/console.tcl5
1 files changed, 3 insertions, 2 deletions
diff --git a/library/console.tcl b/library/console.tcl
index 6eae24b..7c248a2 100644
--- a/library/console.tcl
+++ b/library/console.tcl
@@ -4,7 +4,7 @@
# can be used by non-unix systems that do not have built-in support
# for shells.
#
-# RCS: @(#) $Id: console.tcl,v 1.43 2009/06/29 14:35:01 das Exp $
+# RCS: @(#) $Id: console.tcl,v 1.44 2010/01/04 13:53:17 patthoyts Exp $
#
# Copyright (c) 1995-1997 Sun Microsystems, Inc.
# Copyright (c) 1998-2000 Ajuba Solutions.
@@ -373,6 +373,8 @@ proc ::tk::ConsoleBind {w} {
# Ignore all Alt, Meta, and Control keypresses unless explicitly bound.
# Otherwise, if a widget binding for one of these is defined, the
+ # <Keypress> class binding will also fire and insert the character
+ # which is wrong.
bind Console <Alt-KeyPress> {# nothing }
bind Console <Meta-KeyPress> {# nothing}
@@ -622,7 +624,6 @@ proc ::tk::ConsoleBind {w} {
if {"%A" ne ""} {
::tk::console::TagProc %W
}
- break
}
}