add scaffolding in imperative shell to help update canvas width and height

2025-07-11 17:45:16 +01:00
parent 08ed5cc3d5
commit e3729a1ce5
6 changed files with 11 additions and 3 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -72,6 +72,10 @@ struct
      key = Input.KEY_A () andalso action = Input.PRESS () andalso mods = 0
    then
      Mailbox.send (mailbox, KEY_A)
+    else if
+      key = Input.KEY_W () andalso action = Input.PRESS () andalso mods = 0
+    then
+      Mailbox.send (mailbox, KEY_W)
    else if
      key = Input.KEY_UP () andalso action <> Input.RELEASE ()
      andalso mods = 0x0