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

ok to check for editor:basic<%>

Browse Source 
svn: r3332
This commit is contained in:
Eli Barzilay 2006-06-11 19:16:43 +00:00
parent e33559268a
commit b7d510e058
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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