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

add refactored message types to temp folder

Browse Source
This commit is contained in:
Humza Shahid
2025-07-06 02:30:15 +01:00
parent 441e5fdd69
commit e8e090a19d
13 changed files with 67 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
message-types/draw-msg.sml
View File

@@ -1,21 +1,4 @@
signature DRAW_MESSAGE =
sig
datatype t =
DRAW_DOT of Real32.real vector
| DRAW_TRIANGLES_AND_DOTS of
{triangles: Real32.real vector, dots: Real32.real vector}
| DRAW_TRIANGLES_AND_RESET_DOTS of Real32.real vector
| DRAW_GRAPH of Real32.real vector
| RESIZE_TRIANGLES_DOTS_AND_GRAPH of
{ triangles: Real32.real vector
, graphLines: Real32.real vector
, dots: Real32.real vector
}
| CLEAR_DOTS
| DRAW_MODAL_TEXT of Real32.real vector
end
structure DrawMessage :> DRAW_MESSAGE =
structure DrawMessage =
struct
datatype t =
DRAW_DOT of Real32.real vector

12
message-types/file-msg.sml
View File

@@ -1,14 +1,4 @@
signature FILE_MESSAGE =
sig
datatype t =
SAVE_TRIANGLES of AppType.triangle list
| LOAD_TRIANGLES
| EXPORT_TRIANGLES of AppType.triangle list
| LOAD_FILES of string
| SELECT_PATH of string
end
structure FileMessage :> FILE_MESSAGE =
structure FileMessage =
struct
datatype t =
SAVE_TRIANGLES of AppType.triangle list

32
message-types/input-msg.sml
View File

@@ -1,34 +1,4 @@
signature INPUT_MESSAGE =
sig
datatype t =
MOUSE_MOVE of {x: Real32.real, y: Real32.real}
| MOUSE_LEFT_CLICK
| MOUSE_LEFT_RELEASE
| RESIZE_WINDOW of {width: int, height: int}
| UNDO_ACTION
| REDO_ACTION
| KEY_R
| KEY_G
| KEY_B
| KEY_T
| KEY_CTRL_S
| KEY_CTRL_L
| KEY_CTRL_E
| KEY_CTRL_O
| NUM of int
| ARROW_UP
| ARROW_LEFT
| ARROW_RIGHT
| ARROW_DOWN
| KEY_ENTER
| KEY_SPACE
| USE_TRIANGLES of AppType.triangle list
| TRIANGLES_LOAD_ERROR
| FILE_BROWSER_AND_PATH of
{fileBrowser: AppType.file_browser_item vector, path: string}
end
structure InputMessage :> INPUT_MESSAGE =
structure InputMessage =
struct
datatype t =
MOUSE_MOVE of {x: Real32.real, y: Real32.real}