summaryrefslogtreecommitdiffstats
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
parent5c754a2a7dbb6305a140012bd24f68e32b2375ff (diff)
downloadtk-3e1b00bdae920ecf925c7b135fa6d92f1ef3c51a.zip
tk-3e1b00bdae920ecf925c7b135fa6d92f1ef3c51a.tar.gz
tk-3e1b00bdae920ecf925c7b135fa6d92f1ef3c51a.tar.bz2
Fix keyboard access to console menu and restored broken comment.
-rw-r--r--ChangeLog1
-rw-r--r--library/console.tcl5
2 files changed, 4 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 290fe73..21810a4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
2010-01-04 Pat Thoyts <patthoyts@users.sourceforge.net>
+ * library/console.tcl: Fix keyboard access to console menu.
* library/demos/filebox.tcl: Make prettier using ttk.
* library/demos/fontchoose.tcl: Fix display of demo code.
* library/tk.tcl: Correctly handle quoted ampersands in AmpMenuArgs
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
}
}