suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

win32: ignore inapplicable WM_HSCROLL and WM_VSCROLL events

Browse Source
This commit is contained in:
Matthew Flatt 2011-04-03 15:17:10 -06:00
parent b0115ee360
commit 342964b10a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wx/win32/canvas.rkt
View File

@ -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)]))