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

inserted a coercion string->path

Browse Source 
(there is one on the line above so this is probably the right thing)
closes PR 11563

original commit: 8903de5a123dff1b2d461389dc6c9d0a2de8c316
This commit is contained in:
Robby Findler 2010-12-24 15:56:10 -06:00
parent eb1177d953
commit 03e92ae833
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/win32/filedialog.rkt
View File

@ -185,7 +185,7 @@
#f
(map (lambda (p) (build-path (car strs) p))
(cdr strs))))
(cast (OPENFILENAME-lpstrFile ofn) _pointer _string/utf-16)))
(string->path (cast (OPENFILENAME-lpstrFile ofn) _pointer _string/utf-16))))
(when directory
(free (OPENFILENAME-lpstrInitialDir ofn)))
(when message