humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

scaffolding for arrow-movement functionality

Browse Source
This commit is contained in:
Humza Shahid
2025-09-01 11:23:45 +01:00
parent 53082315ac
commit a10e56935e
4 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
shell/shell.sml
View File

@@ -29,6 +29,14 @@ struct
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 if key = KEY_ARROW_LEFT andalso action <> RELEASE andalso mods = 0 then
Mailbox.send (inputMailbox, InputMsg.ARROW_LEFT)
else if key = KEY_ARROW_RIGHT andalso action <> RELEASE andalso mods = 0 then
Mailbox.send (inputMailbox, InputMsg.ARROW_RIGHT)
else if key = KEY_ARROW_UP andalso action <> RELEASE andalso mods = 0 then
Mailbox.send (inputMailbox, InputMsg.ARROW_UP)
else if key = KEY_ARROW_DOWN andalso action <> RELEASE andalso mods = 0 then
Mailbox.send (inputMailbox, InputMsg.ARROW_DOWN)
else
()
end