add refactored message types to temp folder

This commit is contained in:
2025-07-06 02:30:15 +01:00
parent 441e5fdd69
commit e8e090a19d
13 changed files with 67 additions and 65 deletions

View File

@@ -0,0 +1,16 @@
structure DrawMessage =
struct
datatype t =
DRAW_DOT of Real32.real vector
| DRAW_SQUARES_AND_DOTS of
{squares: Real32.real vector, dots: Real32.real vector}
| DRAW_SQUARES_AND_RESET_DOTS of Real32.real vector
| DRAW_GRAPH of Real32.real vector
| RESIZE_SQUARES_DOTS_AND_GRAPH of
{ squares: Real32.real vector
, graphLines: Real32.real vector
, dots: Real32.real vector
}
| CLEAR_DOTS
| DRAW_MODAL_TEXT of Real32.real vector
end

View File

@@ -0,0 +1,9 @@
structure FileMessage =
struct
datatype t =
SAVE_SQUARES of int vector vector
| LOAD_SQUARES
| EXPORT_SQUARES of int vector vector
| LOAD_FILES of string
| SELECT_PATH of string
end

View File

@@ -0,0 +1,30 @@
structure InputMessage =
struct
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_SQUARES of
{squares: int vector vector, canvasWidth: int, canvasHeight: int}
| SQUARE_LOAD_ERROR
| FILE_BROWSER_AND_PATH of
{fileBrowser: AppType.file_browser_item vector, path: string}
end