diff options
| author | s-ol <s+removethis@s-ol.nu> | 2024-05-20 16:19:23 +0000 |
|---|---|---|
| committer | s-ol <s+removethis@s-ol.nu> | 2024-05-20 16:19:23 +0000 |
| commit | 2e1c88c151e45f288c02f09e413c174574d3f210 (patch) | |
| tree | 6137ac347690d6db68d0160f443a2946666a1d3d /lib/terminal.tcl | |
| parent | wip: Statement-based printer configuration (diff) | |
| download | folk-sol.tar.gz folk-sol.zip | |
fu: keyboardsol
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 } |