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

fix multi-file drag-and-drop on Unix

Browse Source 
Thanks to Laurent Orseau.
This commit is contained in:
Matthew Flatt 2013-08-30 12:40:08 -06:00
parent 400340b897
commit b5b2f1c2ad
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/window.rkt
View File

@ -132,16 +132,15 @@
(gtk_selection_data_get_data data)
(gtk_selection_data_get_length data)
1)])
(cond
[(regexp-match #rx#"^file://(.*)\r\n$" bstr)
=> (lambda (m)
(queue-window-event wx
(lambda ()
(let ([path
(string->path
(uri-decode
(bytes->string/utf-8 (cadr m))))])
(send wx on-drop-file path)))))]))))))
(for ([m (regexp-match* #rx#"file://([^\r]*)\r\n" bstr
#:match-select cadr)])
(queue-window-event wx
(lambda ()
(let ([path
(string->path
(uri-decode
(bytes->string/utf-8 m)))])
(send wx on-drop-file path))))))))))
;; ----------------------------------------