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

...

Browse Source 
original commit: ae696ca9260559582b30a789353442bfd9da2723
This commit is contained in:
Robby Findler 1999-08-03 23:11:39 +00:00
parent 9c44a4c92e
commit 573b8c4355
1 changed files with 28 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
collects/framework/finder.ss
View File

@ -575,30 +575,32 @@
(make-common
(opt-lambda (result-box
[name #f]
[directory #f]
[in-directory #f]
[replace? #f]
[prompt "Select file"]
[filter #f]
[filter-msg "Invalid form"]
[parent-win (dialog-parent-parameter)])
(let* ([directory (if (and (not directory)
(let* ([directory (if (and (not in-directory)
(string? name))
(mzlib:file:path-only name)
directory)]
in-directory)]
[saved-directory last-directory]
[name (or (and (string? name)
(mzlib:file:file-name-from-path name))
name)])
(make-object finder-dialog%
parent-win
#t
replace?
#f
result-box
directory
name
prompt
filter
filter-msg)))))
parent-win
#t
replace?
#f
result-box
directory
name
prompt
filter
filter-msg)
(when in-directory (set! last-directory saved-directory))))))
(define common-get-file
(make-common
@ -609,17 +611,19 @@
[filter #f]
[filter-msg "Bad name"]
[parent-win (dialog-parent-parameter)])
(make-object finder-dialog%
parent-win ; parent window
#f ; save-mode?
#f ; replace-ok?
#f ; multi-mode?
result-box ; boxed results
directory ; start-dir
#f ; start-name
prompt ; prompt
filter ; file-filter
filter-msg)))) ; file-filter-msg
(let ([saved-directory last-directory])
(make-object finder-dialog%
parent-win ; parent window
#f ; save-mode?
#f ; replace-ok?
#f ; multi-mode?
result-box ; boxed results
directory ; start-dir
#f ; start-name
prompt ; prompt
filter ; file-filter
filter-msg) ; file-filter-msg
(when directory (set! last-directory saved-directory))))))
(define common-get-file-list
(make-common