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

change arrow keys (left, down, right) to letter keys (s, d, f) and arrow up to letter key 'k', because I think it is more comfortable

Browse Source
This commit is contained in:
Humza Shahid
2024-12-20 16:51:21 +00:00
parent 1e2ebe066f
commit aeb3756e5b
6 changed files with 42 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
ffi/glfw-input.sml
View File

@@ -27,6 +27,30 @@ struct
_symbol "ARROW_RIGHT" public : ( unit -> int ) * ( int -> unit );
val ARROW_RIGHT = ARROW_RIGHT ()
val (KEY_S, _) =
_symbol "KEY_S" public : ( unit -> int ) * ( int -> unit );
val KEY_S = KEY_S ()
val (KEY_D, _) =
_symbol "KEY_D" public : ( unit -> int ) * ( int -> unit );
val KEY_D = KEY_D ()
val (KEY_F, _) =
_symbol "KEY_F" public : ( unit -> int ) * ( int -> unit );
val KEY_F = KEY_F ()
val (KEY_J, _) =
_symbol "KEY_J" public : ( unit -> int ) * ( int -> unit );
val KEY_J = KEY_J ()
val (KEY_K, _) =
_symbol "KEY_K" public : ( unit -> int ) * ( int -> unit );
val KEY_K = KEY_K ()
val (KEY_L, _) =
_symbol "KEY_L" public : ( unit -> int ) * ( int -> unit );
val KEY_L = KEY_L ()
val exportKeyCallback =
_export "mltonKeyCallback" public : (int * int * int * int -> unit) -> unit;
val setKeyCallback =