ok to check for editor:basic<%>
svn: r3332
This commit is contained in:
parent
e33559268a
commit
b7d510e058
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user