Refactor window size, update selection cursor on new screen

2023-03-25 09:27:27 +00:00
parent 20c05be23f
commit ea0c942887
57 changed files with 346 additions and 310 deletions
@@ -36,8 +36,8 @@ handleMouseMotionEvent mmev cfig =
    P (V2 x y) = mouseMotionEventPos mmev
    themousepos =
        V2
-            (fromIntegral x - 0.5 * _windowX cfig)
-            (0.5 * _windowY cfig - fromIntegral y)
+            (fromIntegral x - 0.5 * windowXFloat cfig)
+            (0.5 * windowYFloat cfig - fromIntegral y)

 handleMouseWheelEvent :: MouseWheelEventData -> Input -> Input
 handleMouseWheelEvent mwev = scrollAmount +~ fromIntegral y