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

added parent to c:x;c:s save dialog

Browse Source 
original commit: dc180d1e7cfefb906db6e940afbe8c90a77466f0
This commit is contained in:
Robby Findler 2001-11-09 17:32:38 +00:00
parent a5a81a079e
commit 0b1e6dfeda
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1078,10 +1078,13 @@
(define setup-file
(let* ([save-file-as
(lambda (edit event)
(let ([file (finder:put-file)])
(if file
(send edit save-file file)))
#t)]
(parameterize ([finder:dialog-parent-parameter
(and (is-a? edit editor:basic<%>)
(send edit get-top-level-window))])
(let ([file (finder:put-file)])
(if file
(send edit save-file file)))
#t))]
[save-file
(lambda (edit event)
(if (send edit get-filename)