cocoa: repair location fixup on screen change

2010-11-24 10:38:20 -07:00 · 2010-11-24 10:38:20 -07:00 · e2072d5afb
commit e2072d5afb
parent 14a72b5a08
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))))))