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

.

Browse Source 
original commit: c1b5a61dd9f362c3a82f1ef46e9a76393323ac3c
This commit is contained in:
Matthew Flatt 1998-09-06 01:44:55 +00:00
parent f116aaf571
commit 24b9a2ebf3
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mred/wrap/mred.ss
View File

@ -584,7 +584,7 @@
(define (queue-window-callback w cb)
(parameterize ([wx:current-eventspace (ivar (send w get-top-level) eventspace)])
(wx:queue-callback cb)))
(wx:queue-callback cb wx:middle-queue-key)))
(define wx<%> (interface () get-mred))
(define wx/proxy<%> (interface (wx<%>) get-proxy))
@ -667,12 +667,10 @@
(wx:application-file-handler (lambda (f)
(when active-frame
(let* ([e (ivar active-frame eventspace)]
[p (wx:eventspace-parameterization e)])
(parameterize ([wx:current-eventspace e])
(wx:queue-callback
(lambda () (when (ivar active-frame accept-drag?)
(send active-frame on-drop-file f)))))))))
(queue-window-callback
active-frame
(lambda () (when (ivar active-frame accept-drag?)
(send active-frame on-drop-file f)))))))
(define (make-top-level-window-glue% %) ; implies make-window-glue%
(class (make-window-glue% %) (mred proxy . args)