From 13da5a79d72db67b50ee94920942dd9a09c4e13d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 19 Jun 2011 08:22:08 -0600 Subject: [PATCH] fix dialog modality --- collects/mred/private/wx/common/queue.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/wx/common/queue.rkt b/collects/mred/private/wx/common/queue.rkt index 9b89545600..773e327380 100644 --- 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)