Toggle _asMovingNode when clicked

2024-11-22 14:16:42 +03:00 · 2020-08-09 17:03:20 -05:00 · 2020-08-09 17:03:20 -05:00 · 6fe9c112d4
commit 6fe9c112d4
parent 6d22e87061
1 changed files with 4 additions and 2 deletions
--- a/gui/Main.hs
+++ b/gui/Main.hs
@ -264,13 +264,15 @@ startApp app = do
        (do
          putStrLn "Left click"
          mousePosition <- getXandY eventButton
-          -- print (x, y)

          modifyIORef' stateRef
            (\s@AppState{_asMovingNode, _asElements}
            ->
              let
-                newMovingNode = findElementByPosition _asElements mousePosition
+                -- toggle _asMovingNode when clicked
+                newMovingNode = case _asMovingNode of
+                  Nothing -> findElementByPosition _asElements mousePosition
+                  Just _ -> Nothing
              in
                s{_asMovingNode=newMovingNode}
            )