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

10
collects/mred/mred.ss
View File

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