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

added a standard style for file/dir dialogs

Browse Source 
svn: r3232
This commit is contained in:
Eli Barzilay 2006-06-05 18:19:28 +00:00
parent 07a44ad935
commit 271d45320c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/private/filedialog.ss
View File

@ -1,6 +1,7 @@
(module filedialog mzscheme (module filedialog mzscheme
(require (lib "class.ss") (require (lib "class.ss")
(lib "etc.ss") (lib "etc.ss")
(lib "list.ss")
(prefix wx: "kernel.ss") (prefix wx: "kernel.ss")
"lock.ss" "lock.ss"
"wx.ss" "wx.ss"
@ -88,8 +89,10 @@
(define name (define name
(opt-lambda ([message #f] [parent #f] [directory #f] [filename #f] (opt-lambda ([message #f] [parent #f] [directory #f] [filename #f]
[extension #f] [style null] [filters default-filters]) [extension #f] [style null] [filters default-filters])
((mk-file-selector 'name put? multi? #f #f) (let* ([force-unix? (memq 'standard style)]
message parent directory filename extension style filters)))])) [style (if force-unix? (remq 'standard style) style)])
((mk-file-selector 'name put? multi? #f force-unix?)
message parent directory filename extension style filters))))]))
(define-file-selector get-file #f #f) (define-file-selector get-file #f #f)
(define-file-selector get-file-list #f #t) (define-file-selector get-file-list #f #t)