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

add ability to move from normal mode to move mode, and from move mode back to normal mode

Browse Source
This commit is contained in:
Humza Shahid
2025-08-09 00:13:02 +01:00
parent 50bdd31d59
commit f46ca01d42
7 changed files with 38 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ffi/glfw-input.c
View File

@@ -23,6 +23,7 @@ int KEY_A = GLFW_KEY_A;
int KEY_W = GLFW_KEY_W;
int KEY_H = GLFW_KEY_H;
int KEY_C = GLFW_KEY_C;
int KEY_M = GLFW_KEY_M;
int KEY_ENTER = GLFW_KEY_ENTER;
int KEY_SPACE = GLFW_KEY_SPACE;
@@ -31,6 +32,7 @@ int KEY_LEFT = GLFW_KEY_LEFT;
int KEY_RIGHT = GLFW_KEY_RIGHT;
int KEY_DOWN = GLFW_KEY_DOWN;
int KEY_BACKSPACE = GLFW_KEY_BACKSPACE;
int KEY_ESC = GLFW_KEY_ESCAPE;
int KEY_0 = GLFW_KEY_0;
int KEY_1 = GLFW_KEY_1;

4
ffi/glfw-input.sml
View File

@@ -39,6 +39,8 @@ struct
_symbol "KEY_B" public : ( unit -> int ) * ( int -> unit );
val (KEY_C, _) =
_symbol "KEY_C" public : ( unit -> int ) * ( int -> unit );
val (KEY_M, _) =
_symbol "KEY_M" public : ( unit -> int ) * ( int -> unit );
val (KEY_T, _) =
_symbol "KEY_T" public : ( unit -> int ) * ( int -> unit );
@@ -78,6 +80,8 @@ struct
_symbol "KEY_DOWN" public : ( unit -> int ) * ( int -> unit );
val (KEY_BACKSPACE, _) =
_symbol "KEY_BACKSPACE" public : ( unit -> int ) * ( int -> unit );
val (KEY_ESC, _) =
_symbol "KEY_ESC" public : ( unit -> int ) * ( int -> unit );
val (KEY_0, _) =
_symbol "KEY_0" public : ( unit -> int ) * ( int -> unit );