From 596161d950f4484d1b25708f8cb4c60fd1adc64c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 24 Nov 2010 10:38:20 -0700
Subject: [PATCH] cocoa: repair location fixup on screen change

original commit: e2072d5afba7cc3c8f1572bdbdac0d7020c92237
---
 collects/mred/private/wx/cocoa/frame.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mred/private/wx/cocoa/frame.rkt b/collects/mred/private/wx/cocoa/frame.rkt
index b9570d25..7e464a58 100644
--- a/collects/mred/private/wx/cocoa/frame.rkt
+++ b/collects/mred/private/wx/cocoa/frame.rkt
@@ -545,5 +545,6 @@
    ;; in atomic mode
    (for ([b (in-hash-values all-windows)])
      (let ([f (weak-box-value b)])
-       (send f fixup-locations-children)))))
+       (when f
+         (send f fixup-locations-children))))))