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

racket/gui win32: fix drag-and-drop onto frame

Browse Source 
Closes PR 13109

Merge to v5.3.1
This commit is contained in:
Matthew Flatt 2012-10-09 20:23:56 -06:00
parent a414b34b14
commit ebe0b64d47
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/private/wx/win32/window.rkt
View File

@ -64,8 +64,6 @@
(define-shell32 DragAcceptFiles (_wfun _HWND _BOOL -> _void)) (define-shell32 DragAcceptFiles (_wfun _HWND _BOOL -> _void))
(define _HDROP _pointer) (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 DragQueryFileW (_wfun _HDROP _UINT _pointer _UINT -> _UINT))
(define-shell32 DragFinish (_wfun _HDROP -> _void)) (define-shell32 DragFinish (_wfun _HDROP -> _void))
@ -438,7 +436,6 @@
(define/private (handle-drop-files wParam) (define/private (handle-drop-files wParam)
(let* ([hdrop (cast wParam _WPARAM _HDROP)] (let* ([hdrop (cast wParam _WPARAM _HDROP)]
[pt (DragQueryPoint hdrop)]
[count (DragQueryFileW hdrop #xFFFFFFFF #f 0)]) [count (DragQueryFileW hdrop #xFFFFFFFF #f 0)])
(for ([i (in-range count)]) (for ([i (in-range count)])
(let* ([len (DragQueryFileW hdrop i #f 0)] (let* ([len (DragQueryFileW hdrop i #f 0)]