gtk: fix drag-and-drop URI decoding

Closes PR 11695
 Merge to 5.1

original commit: 2d01241f7ad3c3905a9629c6aa33ad7cd4c7e653
This commit is contained in:
Matthew Flatt 2011-02-02 06:32:51 -07:00
parent a9a6759f1f
commit 246ad236f0

View File

@ -1,6 +1,7 @@
#lang racket/base
(require ffi/unsafe
racket/class
net/uri-codec
ffi/unsafe/atomic
"../../syntax.rkt"
"../../lock.rkt"
@ -121,7 +122,10 @@
=> (lambda (m)
(queue-window-event wx
(lambda ()
(let ([path (bytes->path (cadr m))])
(let ([path
(string->path
(uri-decode
(bytes->string/utf-8 (cadr m))))])
(send wx on-drop-file path)))))]))))))
;; ----------------------------------------