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

win32: on-size fix

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-05 10:38:06 -07:00
parent ae5093a134
commit adfa67206d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -105,7 +105,7 @@
(inherit get-hwnd (inherit get-hwnd
is-shown? is-shown?
get-eventspace get-eventspace
on-size queue-on-size
pre-on-char pre-on-event pre-on-char pre-on-event
reset-cursor-in-child) reset-cursor-in-child)
@ -215,10 +215,10 @@
0] 0]
[(and (= msg WM_SIZE) [(and (= msg WM_SIZE)
(not (= wParam SIZE_MINIMIZED))) (not (= wParam SIZE_MINIMIZED)))
(queue-window-event this (lambda () (on-size 0 0))) (queue-window-event this (lambda () (queue-on-size)))
(stdret 0 1)] (stdret 0 1)]
[(= msg WM_MOVE) [(= msg WM_MOVE)
(queue-window-event this (lambda () (on-size 0 0))) (queue-window-event this (lambda () (queue-on-size)))
(stdret 0 1)] (stdret 0 1)]
[(= msg WM_ACTIVATE) [(= msg WM_ACTIVATE)
(let ([state (LOWORD wParam)] (let ([state (LOWORD wParam)]