message-types/input-msg.sml

signature INPUT_MESSAGE =
sig
  datatype t =
    MOUSE_MOVE of {x: int, y: int}
  | MOUSE_LEFT_CLICK
  | MOUSE_LEFT_RELEASE
end

structure InputMessage :> INPUT_MESSAGE =
struct
  datatype t =
    MOUSE_MOVE of {x: int, y: int}
  | MOUSE_LEFT_CLICK
  | MOUSE_LEFT_RELEASE
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 =`
			`MOUSE_MOVE of {x: int, y: int}`
			`\| MOUSE_LEFT_CLICK`
			`\| MOUSE_LEFT_RELEASE`
			`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 =`
			`MOUSE_MOVE of {x: int, y: int}`
			`\| MOUSE_LEFT_CLICK`
			`\| MOUSE_LEFT_RELEASE`
			`end`