done scaffolding cml and adding resize functionality

2024-10-06 10:23:07 +01:00
parent b95fc48252
commit 68a1787958
9 changed files with 92 additions and 13 deletions
--- a/message-types/draw-msg.sml
+++ b/message-types/draw-msg.sml
@@ -1,4 +1,10 @@
-structure DrawMsg =
+signature DRAW_MSG =
+sig
+  datatype t =
+    REDRAW_TEXT of Real32.real vector
+end
+
+structure DrawMsg :> DRAW_MSG =
 struct
  datatype t =
    REDRAW_TEXT of Real32.real vector
--- a/message-types/input-msg.sml
+++ b/message-types/input-msg.sml
@@ -1,4 +1,10 @@
-structure InputMsg = 
+signature INPUT_MSG =
+sig
+  datatype t = 
+    RESIZE_EVENT of int * int 
+end
+
+structure InputMsg :> INPUT_MSG = 
 struct 
  datatype t = 
    RESIZE_EVENT of int * int 
--- a/message-types/mailbox-type.sml
+++ b/message-types/mailbox-type.sml
@@ -1,4 +1,10 @@
-structure MailboxType =
+signature MAILBOX_TYPE =
+sig
+  datatype t =
+    DRAW of DrawMsg.t
+end
+
+structure MailboxType :> MAILBOX_TYPE =
 struct
  datatype t =
    DRAW of DrawMsg.t