diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-19 13:17:47 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-19 13:17:47 (GMT) |
| commit | 31e1e833714bdfef28bd7e8cac01cc49573ac34b (patch) | |
| tree | 5350599810c64ef5eca8dd36e4579df36cb2fcb6 /library/console.tcl | |
| parent | c7b3e8d6ca8ff7107e1db5111d22654afda75da4 (diff) | |
| download | tk-31e1e833714bdfef28bd7e8cac01cc49573ac34b.zip tk-31e1e833714bdfef28bd7e8cac01cc49573ac34b.tar.gz tk-31e1e833714bdfef28bd7e8cac01cc49573ac34b.tar.bz2 | |
Mod4 -> Fn
Diffstat (limited to 'library/console.tcl')
| -rw-r--r-- | library/console.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/console.tcl b/library/console.tcl index 980b2a1..5b35f52 100644 --- a/library/console.tcl +++ b/library/console.tcl @@ -424,7 +424,7 @@ proc ::tk::ConsoleBind {w} { # gets and overhaul of how it handles input -- hobbs bind Console <Control-t> {} - # Ignore all Alt, Meta, Control, and Mod4 keypresses unless explicitly bound. + # Ignore all Alt, Meta, Control, and Fn 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. @@ -432,7 +432,7 @@ proc ::tk::ConsoleBind {w} { bind Console <Alt-Key> {# nothing } bind Console <Meta-Key> {# nothing} bind Console <Control-Key> {# nothing} - bind Console <Mod4-Key> {# nothing} + bind Console <Fn-Key> {# nothing} foreach {ev key} { <<Console_NextImmediate>> <Control-n> |