scaffolding for backspace functionality

2025-09-01 02:52:05 +01:00
parent 3f7009bf09
commit f4a4dd9161
7 changed files with 13 additions and 0 deletions
--- a/shell/shell.sml
+++ b/shell/shell.sml
@@ -27,6 +27,8 @@ struct
        Mailbox.send (inputMailbox, InputMsg.KEY_ESC)
      else if key = KEY_ENTER andalso action = PRESS andalso mods = 0 then
        Mailbox.send (inputMailbox, InputMsg.KEY_ENTER)
+      else if key = KEY_BACKSPACE andalso action <> RELEASE andalso mods = 0 then
+        Mailbox.send (inputMailbox, InputMsg.KEY_BACKSPACE)
      else
        ()
    end