original commit: 6588b071c6137f402f4c87914fdbabc67ceb00cd
This commit is contained in:
Robby Findler 1999-02-25 04:38:20 +00:00
parent aba877aa17
commit 77630149a0

View File

@ -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