diff options
Diffstat (limited to 'lib/terminal.tcl')
| -rw-r--r-- | lib/terminal.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/terminal.tcl b/lib/terminal.tcl index 2ab8dd2d..164cdfd6 100644 --- a/lib/terminal.tcl +++ b/lib/terminal.tcl @@ -17,7 +17,8 @@ namespace eval Terminal { LEFT "\x1b\[D" \ ] - proc _remap {key ctrlPressed} { + proc _remap {key} { + # @TODO: this doesn't take ctrlPressed anymore variable keymap if {[string length $key] == 1} { # Convert ctrl-A through ctrl-Z and others to terminal control characters @@ -46,8 +47,8 @@ namespace eval Terminal { } # Writes a keyboard key to the terminal, handling control codes - proc write {term key ctrlPressed} { - set key [_remap $key $ctrlPressed] + proc write {term key} { + set key [_remap $key] if {[string length $key] > 0} { termWrite $term $key } |
