add functionality for changing height of canvas

2025-07-11 22:57:20 +01:00
parent a448fcf469
commit 86369db055
7 changed files with 92 additions and 6 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -76,6 +76,10 @@ struct
      key = Input.KEY_W () andalso action = Input.PRESS () andalso mods = 0
    then
      Mailbox.send (mailbox, KEY_W)
+    else if
+      key = Input.KEY_H () andalso action = Input.PRESS () andalso mods = 0
+    then
+      Mailbox.send (mailbox, KEY_H)
    else if
      key = Input.KEY_UP () andalso action <> Input.RELEASE ()
      andalso mods = 0x0