fix dialog modality

2011-06-19 08:22:08 -06:00 · 2011-06-19 08:22:08 -06:00 · 13da5a79d7
commit 13da5a79d7
parent dd700b8430
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/wx/common/queue.rkt
+++ b/collects/mred/private/wx/common/queue.rkt
@ -554,7 +554,7 @@
                (let ([status (send (car frames) frame-relative-dialog-status win)])
                  (case status
                    [(#f) (loop (cdr frames))]
-                    [(same) #f]
+                    [(same) (loop (cdr frames))]
                    [(other) #t]))))))))

 (define (eventspace-adjust-external-modal! es amt)