From 246ad236f0c5cd40645a9a0eb1f960ce3e952b8c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 2 Feb 2011 06:32:51 -0700
Subject: [PATCH] gtk: fix drag-and-drop URI decoding  Closes PR 11695  Merge
 to 5.1

original commit: 2d01241f7ad3c3905a9629c6aa33ad7cd4c7e653
---
 collects/mred/private/wx/gtk/window.rkt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/mred/private/wx/gtk/window.rkt b/collects/mred/private/wx/gtk/window.rkt
index fc6b99f0..5e546771 100644
--- a/collects/mred/private/wx/gtk/window.rkt
+++ b/collects/mred/private/wx/gtk/window.rkt
@@ -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)))))]))))))
 
 ;; ----------------------------------------