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

Add 'dotscape/' from commit 'f306501a68a51b634e895c5fdac70788ae899d75'

Browse Source 
git-subtree-dir: dotscape
git-subtree-mainline: 6b91d64fc3
git-subtree-split: f306501a68
This commit is contained in:
Humza Shahid
2026-04-24 00:30:08 +01:00
parent 6b91d64fc3 f306501a68
commit f3a4e15ed5
53 changed files with 9187 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
dotscape/message-types/input-msg.sml Normal file
View File

@@ -0,0 +1,36 @@
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_A
| KEY_W
| KEY_H
| KEY_M
| KEY_C
| KEY_L
| KEY_F
| KEY_BACKSPACE
| KEY_CTRL_S
| KEY_CTRL_L
| KEY_CTRL_E
| KEY_CTRL_C
| KEY_ESC
| NUM of int
| ARROW_UP
| ARROW_LEFT
| ARROW_RIGHT
| ARROW_DOWN
| KEY_ENTER
| KEY_SPACE
| USE_LAYERS of {tree: LayerTree.t, canvasWidth: int, canvasHeight: int}
| SQUARES_LOAD_ERROR
end