From 24b9a2ebf384c23d5b91e4254cbe9a3fd37be155 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 6 Sep 1998 01:44:55 +0000 Subject: [PATCH] . original commit: c1b5a61dd9f362c3a82f1ef46e9a76393323ac3c --- src/mred/wrap/mred.ss | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index 7a824966..acccc134 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -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)