message-types/draw-msg.sml

signature DRAW_MESSAGE =
sig
  datatype t =
    DRAW_BUTTON of Real32.real vector
end

structure DrawMessage :> DRAW_MESSAGE =
struct
  datatype t =
    DRAW_BUTTON of Real32.real vector
end
code function that indicates which area, if any, was clicked 2024-07-30 19:04:36 +01:00			`signature DRAW_MESSAGE =`
			`sig`
refactoring and scaffolding 2024-07-31 12:00:07 +01:00			`datatype t =`
			`DRAW_BUTTON of Real32.real vector`
code function that indicates which area, if any, was clicked 2024-07-30 19:04:36 +01:00			`end`

			`structure DrawMessage :> DRAW_MESSAGE =`
			`struct`
refactoring and scaffolding 2024-07-31 12:00:07 +01:00			`datatype t =`
			`DRAW_BUTTON of Real32.real vector`
code function that indicates which area, if any, was clicked 2024-07-30 19:04:36 +01:00			`end`