...
original commit: 6588b071c6137f402f4c87914fdbabc67ceb00cd
This commit is contained in:
parent
aba877aa17
commit
77630149a0
|
@ -596,17 +596,16 @@
|
|||
[filter-msg "Bad name"]
|
||||
[parent-win (dialog-parent-parameter)])
|
||||
(make-object finder-dialog%
|
||||
#f;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
|
||||
))))
|
||||
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
|
||||
|
||||
(define common-get-file-list
|
||||
(make-common
|
||||
|
|
Loading…
Reference in New Issue
Block a user