From 7cc98a423828d79190765ee54a6fae1d4be092de Mon Sep 17 00:00:00 2001
From: David Ludwig <dludwig@pobox.com>
Date: Sat, 23 Feb 2013 20:22:19 -0500
Subject: [PATCH] WinRT: made mouse wheel motion increments more closely match
 their values on Win32

---
 src/video/windowsrt/SDL_WinRTApp.cpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/video/windowsrt/SDL_WinRTApp.cpp b/src/video/windowsrt/SDL_WinRTApp.cpp
index 14c93b13c..8780cac7e 100644
--- a/src/video/windowsrt/SDL_WinRTApp.cpp
+++ b/src/video/windowsrt/SDL_WinRTApp.cpp
@@ -431,7 +431,9 @@ void SDL_WinRTApp::OnPointerWheelChanged(CoreWindow^ sender, PointerEventArgs^ a
 #endif
 
     if (m_sdlWindowData) {
-        SDL_SendMouseWheel(m_sdlWindowData->sdlWindow, 0, args->CurrentPoint->Properties->MouseWheelDelta);
+        // FIXME: This may need to accumulate deltas up to WHEEL_DELTA
+        short motion = args->CurrentPoint->Properties->MouseWheelDelta / WHEEL_DELTA;
+        SDL_SendMouseWheel(m_sdlWindowData->sdlWindow, 0, motion);
     }
 }