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

fix a bug in recently added display-changed method

Browse Source
This commit is contained in:
Robby Findler 2013-01-21 13:46:41 -06:00
parent e7528f2bb2
commit 5301646baf
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wx/cocoa/frame.rkt
View File

@ -47,10 +47,12 @@
(for ([b (in-hash-values all-windows)]) (for ([b (in-hash-values all-windows)])
(define f (weak-box-value b)) (define f (weak-box-value b))
(when f (when f
(parameterize ([current-eventspace (send f get-eventspace)]) (define e (send f get-eventspace))
(unless (eventspace-shutdown? e)
(parameterize ([current-eventspace e])
(queue-callback (queue-callback
(λ () (λ ()
(send f display-changed)))))))) (send f display-changed)))))))))
(set-screen-changed-callback! send-screen-change-notifications) (set-screen-changed-callback! send-screen-change-notifications)

6
collects/mred/private/wx/gtk/frame.rkt
View File

@ -584,10 +584,12 @@
(define (tell-all-frames-signal-changed n) (define (tell-all-frames-signal-changed n)
(define frames (for/list ([f (in-hash-keys all-frames)]) f)) (define frames (for/list ([f (in-hash-keys all-frames)]) f))
(for ([f (in-hash-keys all-frames)]) (for ([f (in-hash-keys all-frames)])
(parameterize ([current-eventspace (send f get-eventspace)]) (define e (send f get-eventspace))
(unless (eventspace-shutdown? e)
(parameterize ([current-eventspace e])
(queue-callback (queue-callback
(λ () (λ ()
(send f display-changed)))))) (send f display-changed)))))))
(define-signal-handler (define-signal-handler
connect-monitor-changed-signal connect-monitor-changed-signal