From 87e17a89da406691a224890dbcb8a3756bddeea3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 23 Dec 2015 08:31:38 -0700 Subject: [PATCH] Windows: fix `get-current-mouse-state` for HiDPI --- gui-lib/mred/private/wx/win32/procs.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gui-lib/mred/private/wx/win32/procs.rkt b/gui-lib/mred/private/wx/win32/procs.rkt index e6234533..21315687 100644 --- a/gui-lib/mred/private/wx/win32/procs.rkt +++ b/gui-lib/mred/private/wx/win32/procs.rkt @@ -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)