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: r3471
This commit is contained in:
Eli Barzilay 2006-06-25 20:50:14 +00:00
parent 1884ba9715
commit 5a19eaca21
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/frame.ss
View File

@ -178,9 +178,8 @@
(label (string-constant keybindings-add-user-defined-keybindings)) (label (string-constant keybindings-add-user-defined-keybindings))
(callback (callback
(λ (x y) (λ (x y)
(let ([filename (finder:get-file #f (let ([filename (get-file (string-constant keybindings-choose-user-defined-file)
(string-constant keybindings-choose-user-defined-file) this)])
#f "" this)])
(when filename (when filename
(add-keybindings-file filename)))))) (add-keybindings-file filename))))))
(let ([ud (preferences:get 'drscheme:user-defined-keybindings)]) (let ([ud (preferences:get 'drscheme:user-defined-keybindings)])