fixed build for vs2022

aardvark-platform · Nov 2, 2021 · b28775d · b28775d
1 parent b51c8a6
commit b28775d
Showing 1 changed file with 13 additions and 12 deletions.
diff --git a/src/Application/Aardvark.Application.Slim/Window.fs b/src/Application/Aardvark.Application.Slim/Window.fs
@@ -199,24 +199,25 @@ module private GameWindowIO =
 
         let mousePos() =
             try
-             match ctrl with
-                | Some ctrl -> 
-                    let state = OpenTK.Input.Mouse.GetCursorState()
-                    let p = ctrl.PointToClient(Drawing.Point(state.X, state.Y))
-                    let s = ctrl.ClientSize
+                match ctrl with
+                    | Some ctrl -> 
+                        let state = OpenTK.Input.Mouse.GetCursorState()
+                        let p = ctrl.PointToClient(Drawing.Point(state.X, state.Y))
+                        let s = ctrl.ClientSize
 
-                    let x = clamp 0 (s.Width-1) p.X
-                    let y = clamp 0 (s.Height-1) p.Y
+                        let x = clamp 0 (s.Width-1) p.X
+                        let y = clamp 0 (s.Height-1) p.Y
 
-                    PixelPosition(x, y, ctrl.ClientSize.Width, ctrl.ClientSize.Height)
-                | _ ->
-                    PixelPosition(0,0,0,0)
-             with e -> 
+                        PixelPosition(x, y, ctrl.ClientSize.Width, ctrl.ClientSize.Height)
+                    | _ ->
+                        PixelPosition(0,0,0,0)
+            with e -> 
                 Log.warn "could not grab mouse position."
                 lastPos
 
 
-        let onMouseDownHandler = EventHandler<MouseButtonEventArgs>(fun s e -> this.Down(%%e, %e.Button))
+
+        let onMouseDownHandler = EventHandler<MouseButtonEventArgs>(fun s e -> this.Down((%%e), (%e.Button)))
         let onMouseUpHandler = EventHandler<MouseButtonEventArgs>(fun s e -> this.Up(%%e, %e.Button))
         let onMouseMoveHandler = EventHandler<MouseMoveEventArgs>(fun s e -> this.Move %%e)
         let onMouseWheelHandler = EventHandler<MouseWheelEventArgs>(fun s e -> this.Scroll (%%e, (float e.Delta * 120.0)))