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

.

Browse Source 
original commit: cd0b455f0c081298d17fc1b770baf4708f9a4fb7
This commit is contained in:
Matthew Flatt 2003-01-28 15:33:33 +00:00
parent 4a0a18fdb9
commit a4c2ef824c
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/mred/mred.ss
View File

@ -1347,15 +1347,21 @@
(define (app-handler-orig ah)
(app-handler-ref ah 1))
(let ([f (entry-point
(lambda ()
(let ([af active-main-frame])
(when af
(queue-window-callback
af
(entry-point
(lambda ()
(send af on-exit))))))))])
(let* ([running-quit? #f]
[f (entry-point
(lambda ()
(unless running-quit?
(let ([af active-main-frame])
(when af
(set! running-quit? #t)
(queue-window-callback
af
(entry-point
(lambda ()
(dynamic-wind
void
(lambda () (send af on-exit))
(lambda () (set! running-quit? #t)))))))))))])
(wx:application-quit-handler (make-app-handler f f)))
(define (set-handler! who proc param)