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

make open/save file dialogs have a parent

Browse Source 
svn: r3330

original commit: e33559268abbe1ea674d937325d5ea6b3ba29216
This commit is contained in:
Eli Barzilay 2006-06-11 18:29:58 +00:00
parent 89b158f1b1
commit dc18fb9c4a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -380,7 +380,7 @@
(define open-file
(λ ()
(let* ([parent (and (preferences:get 'framework:open-here?)
(let* ([parent (and ; (preferences:get 'framework:open-here?)
(get-top-level-focus-window))]
[file
(parameterize ([finder:dialog-parent-parameter parent])

2
collects/framework/private/keymap.ss
View File

@ -1232,7 +1232,7 @@
(λ (this-edit event)
(let ([edit (get-outer-editor this-edit)])
(parameterize ([finder:dialog-parent-parameter
(and (is-a? edit editor:basic<%>)
(and ; (is-a? edit editor:basic<%>)
(send edit get-top-level-window))])
(let ([file (finder:put-file)])
(when file