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

Windows: fix get-current-mouse-state for HiDPI

Browse Source
This commit is contained in:
Matthew Flatt 2015-12-23 08:31:38 -07:00
parent 65fc1c4e8f
commit 87e17a89da
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gui-lib/mred/private/wx/win32/procs.rkt
View File

@ -136,7 +136,7 @@
(list sym)
null))
(define swapped? (not (zero? (GetSystemMetrics SM_SWAPBUTTON))))
(values (make-object point% (POINT-x p) (POINT-y p))
(values (make-object point% (->normal (POINT-x p)) (->normal (POINT-y p)))
(append
(maybe (if swapped? VK_RBUTTON VK_LBUTTON) 'left)
(maybe (if swapped? VK_LBUTTON VK_RBUTTON) 'right)