diff --git a/collects/mred/private/wx/cocoa/frame.rkt b/collects/mred/private/wx/cocoa/frame.rkt index b1e1a4cf25..9bad873467 100644 --- a/collects/mred/private/wx/cocoa/frame.rkt +++ b/collects/mred/private/wx/cocoa/frame.rkt @@ -47,10 +47,12 @@ (for ([b (in-hash-values all-windows)]) (define f (weak-box-value b)) (when f - (parameterize ([current-eventspace (send f get-eventspace)]) - (queue-callback - (λ () - (send f display-changed)))))))) + (define e (send f get-eventspace)) + (unless (eventspace-shutdown? e) + (parameterize ([current-eventspace e]) + (queue-callback + (λ () + (send f display-changed))))))))) (set-screen-changed-callback! send-screen-change-notifications) diff --git a/collects/mred/private/wx/gtk/frame.rkt b/collects/mred/private/wx/gtk/frame.rkt index 4e0f82b987..d4e14124c0 100644 --- a/collects/mred/private/wx/gtk/frame.rkt +++ b/collects/mred/private/wx/gtk/frame.rkt @@ -584,10 +584,12 @@ (define (tell-all-frames-signal-changed n) (define frames (for/list ([f (in-hash-keys all-frames)]) f)) (for ([f (in-hash-keys all-frames)]) - (parameterize ([current-eventspace (send f get-eventspace)]) - (queue-callback - (λ () - (send f display-changed)))))) + (define e (send f get-eventspace)) + (unless (eventspace-shutdown? e) + (parameterize ([current-eventspace e]) + (queue-callback + (λ () + (send f display-changed))))))) (define-signal-handler connect-monitor-changed-signal