Files
sml-projects/message-types/input-msg.sml

42 lines
784 B
Standard ML
Raw Normal View History

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
2024-08-14 02:31:28 +01:00
| KEY_G
| KEY_B
| KEY_T
| KEY_A
| KEY_W
| KEY_H
| KEY_M
2025-08-09 07:04:03 +01:00
| KEY_C
2025-07-11 23:47:28 +01:00
| KEY_BACKSPACE
| KEY_CTRL_S
| KEY_CTRL_L
| KEY_CTRL_E
| KEY_CTRL_O
| KEY_CTRL_C
| KEY_ESC
| NUM of int
| ARROW_UP
| ARROW_LEFT
| ARROW_RIGHT
| ARROW_DOWN
| KEY_ENTER
| KEY_SPACE
| USE_SQUARES of
{ squares: {r: int, g: int, b: int, a: int} vector vector
, canvasWidth: int
, canvasHeight: int
}
| SQUARES_LOAD_ERROR
| FILE_BROWSER_AND_PATH of
{fileBrowser: AppType.file_browser_item vector, path: string}
end