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

...

Browse Source 
original commit: 6588b071c6137f402f4c87914fdbabc67ceb00cd
This commit is contained in:
Robby Findler 1999-02-25 04:38:20 +00:00
parent aba877aa17
commit 77630149a0
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/framework/finder.ss
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