refactoring progress

2025-07-06 03:53:26 +01:00
parent a919e3d3d4
commit 20c02814e4
3 changed files with 41 additions and 0 deletions
--- a/temp-squares/fcore/app-update.sml
+++ b/temp-squares/fcore/app-update.sml
@@ -41,4 +41,16 @@ struct
      Vector.concat [tl, tr, bl, br]
    end

+  fun mouseMoveOrRelease (model: app_type) =
+    let
+      val drawVec =
+        case ClickPoints.getClickPositionFromMouse model of
+          SOME (hIdx, vIdx) => getDotVecFromIndices (model, hIdx, vIdx)
+        | NONE => Vector.fromList []
+
+      val drawMsg = DRAW_DOT drawVec
+      val drawMsg = [DRAW drawMsg]
+    in
+      (model, drawMsg)
+    end
 end