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

progress adding ability to change colour of triangle

Browse Source
This commit is contained in:
Humza Shahid
2024-12-30 03:41:11 +00:00
parent b41cb87b41
commit 5dde0517cc
6 changed files with 30 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
imperative-shell/input-callbacks.sml
View File

@@ -37,10 +37,22 @@ struct
andalso mods = 0x0002
then
Mailbox.send (mailbox, REDO_ACTION)
else if
key = Input.KEY_R () andalso action <> Input.RELEASE () andalso mods = 0x0
then
Mailbox.send (mailbox, KEY_R)
else if
key = Input.KEY_G () andalso action <> Input.RELEASE () andalso mods = 0x0
then
Mailbox.send (mailbox, KEY_G)
else if
key = Input.KEY_B () andalso action <> Input.RELEASE () andalso mods = 0x0
then
Mailbox.send (mailbox, KEY_B)
else if
key = Input.KEY_T () andalso action <> Input.RELEASE () andalso mods = 0x0
then
Mailbox.send (mailbox, KEY_T)
else if
(* ctrl-s *)
key = Input.KEY_S () andalso action = Input.PRESS () andalso mods = 0x002