add refactored message types to temp folder

message-types/draw-msg.sml

@@ -1,21 +1,4 @@
-signature DRAW_MESSAGE =
+structure DrawMessage =
-sig
-  datatype t =
-    DRAW_DOT of Real32.real vector
-  | DRAW_TRIANGLES_AND_DOTS of
-      {triangles: Real32.real vector, dots: Real32.real vector}
-  | DRAW_TRIANGLES_AND_RESET_DOTS of Real32.real vector
-  | DRAW_GRAPH of Real32.real vector
-  | RESIZE_TRIANGLES_DOTS_AND_GRAPH of
-      { triangles: Real32.real vector
-      , graphLines: Real32.real vector
-      , dots: Real32.real vector
-      }
-  | CLEAR_DOTS
-  | DRAW_MODAL_TEXT of Real32.real vector
-end
-
-structure DrawMessage :> DRAW_MESSAGE =
 struct
   datatype t =
     DRAW_DOT of Real32.real vector

message-types/file-msg.sml

@@ -1,14 +1,4 @@
-signature FILE_MESSAGE =
+structure FileMessage =
-sig
-  datatype t =
-    SAVE_TRIANGLES of AppType.triangle list
-  | LOAD_TRIANGLES
-  | EXPORT_TRIANGLES of AppType.triangle list
-  | LOAD_FILES of string
-  | SELECT_PATH of string
-end
-
-structure FileMessage :> FILE_MESSAGE =
 struct
   datatype t =
     SAVE_TRIANGLES of AppType.triangle list

message-types/input-msg.sml

@@ -1,34 +1,4 @@
-signature INPUT_MESSAGE =
+structure InputMessage =
-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_R
-  | KEY_G
-  | KEY_B
-  | KEY_T
-  | KEY_CTRL_S
-  | KEY_CTRL_L
-  | KEY_CTRL_E
-  | KEY_CTRL_O
-  | NUM of int
-  | ARROW_UP
-  | ARROW_LEFT
-  | ARROW_RIGHT
-  | ARROW_DOWN
-  | KEY_ENTER
-  | KEY_SPACE
-  | USE_TRIANGLES of AppType.triangle list
-  | TRIANGLES_LOAD_ERROR
-  | FILE_BROWSER_AND_PATH of
-      {fileBrowser: AppType.file_browser_item vector, path: string}
-end
-
-structure InputMessage :> INPUT_MESSAGE =
 struct
   datatype t =
     MOUSE_MOVE of {x: Real32.real, y: Real32.real}

temp-squares/message-types/draw-msg.sml

@@ -0,0 +1,16 @@
+structure DrawMessage =
+struct
+  datatype t =
+    DRAW_DOT of Real32.real vector
+  | DRAW_SQUARES_AND_DOTS of
+      {squares: Real32.real vector, dots: Real32.real vector}
+  | DRAW_SQUARES_AND_RESET_DOTS of Real32.real vector
+  | DRAW_GRAPH of Real32.real vector
+  | RESIZE_SQUARES_DOTS_AND_GRAPH of
+      { squares: Real32.real vector
+      , graphLines: Real32.real vector
+      , dots: Real32.real vector
+      }
+  | CLEAR_DOTS
+  | DRAW_MODAL_TEXT of Real32.real vector
+end

temp-squares/message-types/file-msg.sml

@@ -0,0 +1,9 @@
+structure FileMessage =
+struct
+  datatype t =
+    SAVE_SQUARES of int vector vector
+  | LOAD_SQUARES
+  | EXPORT_SQUARES of int vector vector
+  | LOAD_FILES of string
+  | SELECT_PATH of string
+end

temp-squares/message-types/input-msg.sml

@@ -0,0 +1,30 @@
+structure InputMessage =
+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_R
+  | KEY_G
+  | KEY_B
+  | KEY_T
+  | KEY_CTRL_S
+  | KEY_CTRL_L
+  | KEY_CTRL_E
+  | KEY_CTRL_O
+  | NUM of int
+  | ARROW_UP
+  | ARROW_LEFT
+  | ARROW_RIGHT
+  | ARROW_DOWN
+  | KEY_ENTER
+  | KEY_SPACE
+  | USE_SQUARES of
+      {squares: int vector vector, canvasWidth: int, canvasHeight: int}
+  | SQUARE_LOAD_ERROR
+  | FILE_BROWSER_AND_PATH of
+      {fileBrowser: AppType.file_browser_item vector, path: string}
+end

temp-squares/temp.mlb

@@ -1,13 +1,17 @@
 $(SML_LIB)/basis/basis.mlb
 
 (* FUNCTIONAL CORE *)
-app-type.sml
+fcore/app-type.sml
-click-points.sml
+fcore/click-points.sml
-app-init.sml
+fcore/app-init.sml
-app-with.sml
+fcore/app-with.sml
 
 ann
   "allowVectorExps true"
 in
-  graph-lines.sml
+  fcore/graph-lines.sml
 end
+
+message-types/draw-msg.sml
+message-types/file-msg.sml
+message-types/input-msg.sml