gtk: fix drag-and-drop URI decoding
Closes PR 11695
Merge to 5.1
(cherry picked from commit 2d01241f7a
)
This commit is contained in:
parent
2e67a39ae8
commit
3b47d8eb35
|
@ -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)))))]))))))
|
||||
|
||||
;; ----------------------------------------
|
||||
|
|
Loading…
Reference in New Issue
Block a user