add functionality to delete pixel

2025-07-11 23:47:28 +01:00
parent 86369db055
commit 973a1610ce
7 changed files with 110 additions and 5 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -100,6 +100,11 @@ struct
      andalso mods = 0x0
    then
      Mailbox.send (mailbox, ARROW_DOWN)
+    else if
+      key = Input.KEY_BACKSPACE () andalso action = Input.PRESS ()
+      andalso mods = 0x0
+    then
+      Mailbox.send (mailbox, KEY_BACKSPACE)
    else if
      key = Input.KEY_ENTER () andalso action = Input.PRESS ()
      andalso mods = 0x0