message-types/input-msg.sml

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_G
  | KEY_CTRL_S
  | KEY_CTRL_L
  | USE_TRIANGLES of AppType.triangle list
  | TRIANGLES_LOAD_ERROR
end

structure InputMessage :> INPUT_MESSAGE =
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_G
  | KEY_CTRL_S
  | KEY_CTRL_L
  | USE_TRIANGLES of AppType.triangle list
  | TRIANGLES_LOAD_ERROR
end
code function that indicates which area, if any, was clicked 2024-07-30 19:04:36 +01:00			`signature INPUT_MESSAGE =`
add callbacks for mouse movement and mouse clicking 2024-07-30 17:10:48 +01:00			`sig`
			`datatype t =`
reduce number of type conversoins required for mouse move callback (and fix the other code which uses it too) 2024-08-01 21:17:39 +01:00			`MOUSE_MOVE of {x: Real32.real, y: Real32.real}`
add callbacks for mouse movement and mouse clicking 2024-07-30 17:10:48 +01:00			`\| MOUSE_LEFT_CLICK`
			`\| MOUSE_LEFT_RELEASE`
add framebufferSize callback (FFI scaffolding and creating new variant of input_message type but don't react to this message in a meaningful way yet) 2024-08-01 23:33:54 +01:00			`\| RESIZE_WINDOW of {width: int, height: int}`
scaffolding in preparation for implementing undo 2024-08-08 06:34:40 +01:00			`\| UNDO_ACTION`
done with functional-core logic for redo (now just need to send REDO_ACTION on key callback when shortcut is pressed) 2024-08-08 23:43:38 +01:00			`\| REDO_ACTION`
progress towards toggling graph 2024-08-14 02:31:28 +01:00			`\| KEY_G`
very basic saving (hardcoded file name, which is fine fow now) 2024-08-29 00:05:30 +01:00			`\| KEY_CTRL_S`
verify that parsing saved file is successful 2024-08-29 05:21:04 +01:00			`\| KEY_CTRL_L`
done with loading file into app (loaded triangles are visible, etc.) 2024-08-29 05:38:58 +01:00			`\| USE_TRIANGLES of AppType.triangle list`
			`\| TRIANGLES_LOAD_ERROR`
add callbacks for mouse movement and mouse clicking 2024-07-30 17:10:48 +01:00			`end`

code function that indicates which area, if any, was clicked 2024-07-30 19:04:36 +01:00			`structure InputMessage :> INPUT_MESSAGE =`
add callbacks for mouse movement and mouse clicking 2024-07-30 17:10:48 +01:00			`struct`
			`datatype t =`
reduce number of type conversoins required for mouse move callback (and fix the other code which uses it too) 2024-08-01 21:17:39 +01:00			`MOUSE_MOVE of {x: Real32.real, y: Real32.real}`
add callbacks for mouse movement and mouse clicking 2024-07-30 17:10:48 +01:00			`\| MOUSE_LEFT_CLICK`
			`\| MOUSE_LEFT_RELEASE`
add framebufferSize callback (FFI scaffolding and creating new variant of input_message type but don't react to this message in a meaningful way yet) 2024-08-01 23:33:54 +01:00			`\| RESIZE_WINDOW of {width: int, height: int}`
scaffolding in preparation for implementing undo 2024-08-08 06:34:40 +01:00			`\| UNDO_ACTION`
done with functional-core logic for redo (now just need to send REDO_ACTION on key callback when shortcut is pressed) 2024-08-08 23:43:38 +01:00			`\| REDO_ACTION`
progress towards toggling graph 2024-08-14 02:31:28 +01:00			`\| KEY_G`
very basic saving (hardcoded file name, which is fine fow now) 2024-08-29 00:05:30 +01:00			`\| KEY_CTRL_S`
verify that parsing saved file is successful 2024-08-29 05:21:04 +01:00			`\| KEY_CTRL_L`
done with loading file into app (loaded triangles are visible, etc.) 2024-08-29 05:38:58 +01:00			`\| USE_TRIANGLES of AppType.triangle list`
			`\| TRIANGLES_LOAD_ERROR`
add callbacks for mouse movement and mouse clicking 2024-07-30 17:10:48 +01:00			`end`