rgleichman/glance
1
1
Fork 0
mirror of https://github.com/rgleichman/glance.git synced 2024-11-22 23:28:34 +03:00
Code Issues Projects Releases Wiki Activity

Toggle _asMovingNode when clicked

Browse Source
This commit is contained in:
Daniel Garcia 2020-08-09 17:03:20 -05:00 committed by Robbie Gleichman
parent 6d22e87061
commit 6fe9c112d4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gui/Main.hs
View File

@ -264,13 +264,15 @@ startApp app = do
(do (do
putStrLn "Left click" putStrLn "Left click"
mousePosition <- getXandY eventButton mousePosition <- getXandY eventButton
-- print (x, y)
modifyIORef' stateRef modifyIORef' stateRef
(\s@AppState{_asMovingNode, _asElements} (\s@AppState{_asMovingNode, _asElements}
-> ->
let let
newMovingNode = findElementByPosition _asElements mousePosition -- toggle _asMovingNode when clicked
newMovingNode = case _asMovingNode of
Nothing -> findElementByPosition _asElements mousePosition
Just _ -> Nothing
in in
s{_asMovingNode=newMovingNode} s{_asMovingNode=newMovingNode}
) )