cocoa: repair location fixup on screen change

original commit: e2072d5afba7cc3c8f1572bdbdac0d7020c92237
2010-11-24 10:38:20 -07:00 · 2010-11-24 10:38:20 -07:00 · 596161d950
commit 596161d950
parent f1833d580a
1 changed files with 2 additions and 1 deletions
--- 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))))))