From cca9680f762ddc3f9d965519b727a3b39f241921 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 3 Apr 2011 15:17:10 -0600 Subject: [PATCH] win32: ignore inapplicable WM_HSCROLL and WM_VSCROLL events original commit: 342964b10a7fe95f648f2d652518786b4ebf5ddb --- collects/mred/private/wx/win32/canvas.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wx/win32/canvas.rkt b/collects/mred/private/wx/win32/canvas.rkt index 3b03a5b3..0f4cd1e4 100644 --- a/collects/mred/private/wx/win32/canvas.rkt +++ b/collects/mred/private/wx/win32/canvas.rkt @@ -219,10 +219,12 @@ 1) (default w msg wParam lParam))] [(= msg WM_HSCROLL) - (on-scroll-change SB_HORZ (LOWORD wParam)) + (when hscroll? + (on-scroll-change SB_HORZ (LOWORD wParam))) 0] [(= msg WM_VSCROLL) - (on-scroll-change SB_VERT (LOWORD wParam)) + (when vscroll? + (on-scroll-change SB_VERT (LOWORD wParam))) 0] [else (super wndproc w msg wParam lParam default)]))