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

scaffolding for backspace functionality

Browse Source
This commit is contained in:
Humza Shahid
2025-09-01 02:52:05 +01:00
parent 3f7009bf09
commit f4a4dd9161
7 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
ffi/glfw-input.c
View File

@@ -8,6 +8,7 @@ int REPEAT = GLFW_REPEAT;
int RELEASE = GLFW_RELEASE;
int KEY_ESC = GLFW_KEY_ESCAPE;
int KEY_ENTER = GLFW_KEY_ENTER;
int KEY_BACKSPACE = GLFW_KEY_BACKSPACE;
void framebufferSizeCallback(GLFWwindow* window, int width, int height) {
glViewport(0, 0, width, height);

3
ffi/glfw-input.sml
View File

@@ -36,4 +36,7 @@ struct
val (KEY_ENTER, _) =
_symbol "KEY_ENTER" public : ( unit -> int ) * ( int -> unit );
val KEY_ENTER = KEY_ENTER ()
val (KEY_BACKSPACE, _) =
_symbol "KEY_BACKSPACE" public : ( unit -> int ) * ( int -> unit );
val KEY_BACKSPACE = KEY_BACKSPACE ()
end