suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix dialog modality

Browse Source
This commit is contained in:
Matthew Flatt 2011-06-19 08:22:08 -06:00
parent dd700b8430
commit 13da5a79d7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/common/queue.rkt
View File

@ -554,7 +554,7 @@
(let ([status (send (car frames) frame-relative-dialog-status win)]) (let ([status (send (car frames) frame-relative-dialog-status win)])
(case status (case status
[(#f) (loop (cdr frames))] [(#f) (loop (cdr frames))]
[(same) #f] [(same) (loop (cdr frames))]
[(other) #t])))))))) [(other) #t]))))))))
(define (eventspace-adjust-external-modal! es amt) (define (eventspace-adjust-external-modal! es amt)