summaryrefslogtreecommitdiffstats
path: root/lib/terminal.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/terminal.tcl')
-rw-r--r--lib/terminal.tcl7
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
}