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

Windows: fix WM_GESTURE handling

Browse Source 
Broken boolean expression treated `next-scroll-is-change?` backward.
This commit is contained in:
Matthew Flatt 2015-10-06 21:31:34 -06:00
parent a35b0e4831
commit 1d3a308532
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gui-lib/mred/private/wx/win32/canvas.rkt
View File

@ -506,9 +506,9 @@
[(= part SB_PAGEDOWN) (min (SCROLLINFO-nMax i) (+ (SCROLLINFO-nPos i) (SCROLLINFO-nPage i)))] [(= part SB_PAGEDOWN) (min (SCROLLINFO-nMax i) (+ (SCROLLINFO-nPos i) (SCROLLINFO-nPage i)))]
[(= part SB_THUMBTRACK) (SCROLLINFO-nTrackPos i)] [(= part SB_THUMBTRACK) (SCROLLINFO-nTrackPos i)]
[else (SCROLLINFO-nPos i)])]) [else (SCROLLINFO-nPos i)])])
(unless (or (and (= new-pos (SCROLLINFO-nPos i)) (unless (and (= new-pos (SCROLLINFO-nPos i))
(not forced-pos)) (not forced-pos)
next-scroll-is-change?) (not next-scroll-is-change?))
(set! next-scroll-is-change? #f) (set! next-scroll-is-change? #f)
(set-SCROLLINFO-nPos! i new-pos) (set-SCROLLINFO-nPos! i new-pos)
(set-SCROLLINFO-fMask! i SIF_POS) (set-SCROLLINFO-fMask! i SIF_POS)