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

.

Browse Source 
original commit: aa5a10056776b334a81360cf747e90666f2f0418
This commit is contained in:
Matthew Flatt 1999-02-08 19:56:43 +00:00
parent 7a1c876533
commit 10231812c2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mred/wrap/mred.ss
View File

@ -4339,7 +4339,7 @@
(check-string/false who directory) (check-string/false who filename) (check-string/false who extension)
(check-style who #f null style)
(if (not (eq? (system-type) 'unix))
(wx:file-selector message directory filename extension "*.*" (if put? 'put 'get) parent)
(wx:file-selector message directory filename extension "*.*" (if put? 'put 'get) (mred->wx parent))
(letrec ([ok? #f]
[typed-name #f]
[dir (or directory last-visted-directory (current-directory))]