suzanne.soy/gui
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 
original commit: 342964b10a7fe95f648f2d652518786b4ebf5ddb
This commit is contained in:
Matthew Flatt 2011-04-03 15:17:10 -06:00
parent 9722fe9427
commit cca9680f76
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) 1)
(default w msg wParam lParam))] (default w msg wParam lParam))]
[(= msg WM_HSCROLL) [(= msg WM_HSCROLL)
(on-scroll-change SB_HORZ (LOWORD wParam)) (when hscroll?
(on-scroll-change SB_HORZ (LOWORD wParam)))
0] 0]
[(= msg WM_VSCROLL) [(= msg WM_VSCROLL)
(on-scroll-change SB_VERT (LOWORD wParam)) (when vscroll?
(on-scroll-change SB_VERT (LOWORD wParam)))
0] 0]
[else (super wndproc w msg wParam lParam default)])) [else (super wndproc w msg wParam lParam default)]))