From ebe0b64d47be80a78b99635dd8e947807a767d6c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 9 Oct 2012 20:23:56 -0600 Subject: [PATCH] racket/gui win32: fix drag-and-drop onto frame Closes PR 13109 Merge to v5.3.1 --- collects/mred/private/wx/win32/window.rkt | 3 --- 1 file changed, 3 deletions(-) diff --git a/collects/mred/private/wx/win32/window.rkt b/collects/mred/private/wx/win32/window.rkt index d982b0bf6e..23d0f506c1 100644 --- a/collects/mred/private/wx/win32/window.rkt +++ b/collects/mred/private/wx/win32/window.rkt @@ -64,8 +64,6 @@ (define-shell32 DragAcceptFiles (_wfun _HWND _BOOL -> _void)) (define _HDROP _pointer) -(define-shell32 DragQueryPoint (_wfun _HDROP (p : (_ptr o _POINT)) -> (r : _BOOL) - -> (if r p (failed 'DragQueryPoint)))) (define-shell32 DragQueryFileW (_wfun _HDROP _UINT _pointer _UINT -> _UINT)) (define-shell32 DragFinish (_wfun _HDROP -> _void)) @@ -438,7 +436,6 @@ (define/private (handle-drop-files wParam) (let* ([hdrop (cast wParam _WPARAM _HDROP)] - [pt (DragQueryPoint hdrop)] [count (DragQueryFileW hdrop #xFFFFFFFF #f 0)]) (for ([i (in-range count)]) (let* ([len (DragQueryFileW hdrop i #f 0)]