scaffolding for concurrent ml

This commit is contained in:
2024-10-06 09:32:56 +01:00
parent 6766fd1485
commit b95fc48252
9 changed files with 73 additions and 40 deletions

View File

@@ -0,0 +1,5 @@
structure DrawMsg =
struct
datatype t =
REDRAW_TEXT of Real32.real vector
end

View File

@@ -0,0 +1,5 @@
structure InputMsg =
struct
datatype t =
RESIZE_EVENT of int * int
end

View File

@@ -0,0 +1,5 @@
structure MailboxType =
struct
datatype t =
DRAW of DrawMsg.t
end