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

fix more try-atomic problems

Browse Source 
original commit: 78b2e47541bcbb591c7a18df9b9292e47e58923c
This commit is contained in:
Matthew Flatt 2010-12-21 18:45:36 -07:00
parent 4dc7f21694
commit 46b8678ec5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/private/wx/win32/frame.rkt
View File

@ -210,7 +210,8 @@
[(= msg WM_CLOSE) [(= msg WM_CLOSE)
(queue-window-event this (lambda () (queue-window-event this (lambda ()
(when (on-close) (when (on-close)
(direct-show #f)))) (atomically
(direct-show #f)))))
0] 0]
[(and (= msg WM_SIZE) [(and (= msg WM_SIZE)
(not (= wParam SIZE_MINIMIZED))) (not (= wParam SIZE_MINIMIZED)))