From d9732fbc106a6ac228912078888fbac65e78d26d Mon Sep 17 00:00:00 2001
From: David Robillard <d@drobilla.net>
Date: Sun, 29 Apr 2012 18:10:46 +0000
Subject: Scroll support on Windows.

---
 pugl/pugl_win.cpp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'pugl/pugl_win.cpp')

diff --git a/pugl/pugl_win.cpp b/pugl/pugl_win.cpp
index 5441409..a3354bf 100644
--- a/pugl/pugl_win.cpp
+++ b/pugl/pugl_win.cpp
@@ -39,6 +39,10 @@ wndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
 		return 0;
 	case WM_DESTROY:
 		return 0;
+	case WM_MOUSEWHEEL:
+	case WM_MOUSEHWHEEL:
+		PostMessage(hwnd, message, wParam, lParam);
+		return 0;
 	default:
 		return DefWindowProc(hwnd, message, wParam, lParam);
 	}
@@ -201,6 +205,18 @@ puglProcessEvents(PuglWindow* win)
 		case WM_RBUTTONUP:
 			processMouseEvent(win, 3, false, msg.lParam);
 			break;
+		case WM_MOUSEWHEEL:
+			if (win->scrollFunc) {
+				win->scrollFunc(
+					win, 0, (int16_t)HIWORD(msg.wParam) / (float)WHEEL_DELTA);
+			}
+			break;
+		case WM_MOUSEHWHEEL:
+			if (win->scrollFunc) {
+				win->scrollFunc(
+					win, (int16_t)HIWORD(msg.wParam) / float(WHEEL_DELTA), 0);
+			}
+			break;
 		case WM_KEYDOWN:
 		case WM_KEYUP:
 			if (win->keyboardFunc) {
-- 
cgit v1.2.1