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

finder:get-file -> get-file

Browse Source 
svn: r3472
This commit is contained in:
Eli Barzilay 2006-06-25 20:54:24 +00:00
parent 5a19eaca21
commit ec8910bc62
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/drscheme/private/unit.ss
View File

@ -3157,9 +3157,9 @@ module browser threading seems wrong.
(define drs-name-message% (define drs-name-message%
(class name-message% (class name-message%
(define/override (on-choose-directory dir) (define/override (on-choose-directory dir)
(let ([file (parameterize ([finder:dialog-parent-parameter (let ([file (get-file (string-constant select-file)
(send this get-top-level-window)]) (send this get-top-level-window)
(finder:get-file dir))]) dir)])
(when file (when file
(handler:edit-file file)))) (handler:edit-file file))))
(super-new))) (super-new)))