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

.

Browse Source 
original commit: 9dee3a104f7df3fa888bf0d69d373ac72b3b062d
This commit is contained in:
Matthew Flatt 1998-08-16 21:31:19 +00:00
parent cda35099a4
commit 66e6ffdff0
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

@ -3106,7 +3106,7 @@
[(message parent directory filename extension) (sel message parent directory filename extension null)]
[(message parent directory filename extension 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) parent)
(letrec ([ok? #t]
[typed-name #f]
[dir (or directory (current-directory))]