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

..

Browse Source 
original commit: c62c5047821d5743035f6e12e59df0d6bb931c5c
This commit is contained in:
Robby Findler 2002-09-04 17:52:52 +00:00
parent 2cd49392aa
commit 367eca8a28
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/private/handler.ss
View File

@ -151,8 +151,6 @@
(make-default)))])) (make-default)))]))
(make-default)))))])) (make-default)))))]))
; Query the user for a file and then edit it
;; type recent-list-item = (list/p string? number? number?) ;; type recent-list-item = (list/p string? number? number?)
;; add-to-recent : string -> void ;; add-to-recent : string -> void
@ -378,7 +376,8 @@
(lambda () (lambda ()
(let ([file (let ([file
(parameterize ([finder:dialog-parent-parameter (parameterize ([finder:dialog-parent-parameter
(get-top-level-focus-window)]) (and (preferences:get 'framework:open-here?)
(get-top-level-focus-window))])
(finder:get-file (finder:get-file
(send *open-directory* get)))]) (send *open-directory* get)))])
(when file (when file