add code to let user change alpha valua

2025-07-11 15:34:29 +01:00
parent 104cdf33c2
commit 040fc67c80
9 changed files with 92 additions and 0 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -68,6 +68,10 @@ struct
      key = Input.KEY_E () andalso action = Input.PRESS () andalso mods = 0x002
    then
      Mailbox.send (mailbox, KEY_CTRL_E)
+    else if
+      key = Input.KEY_A () andalso action = Input.PRESS () andalso mods = 0
+    then
+      Mailbox.send (mailbox, KEY_A)
    else if
      key = Input.KEY_UP () andalso action <> Input.RELEASE ()
      andalso mods = 0x0