win32: on-size fix

original commit: adfa67206d17aeb9d31d7785809ba81f0835bf25
This commit is contained in:
Matthew Flatt 2011-01-05 10:38:06 -07:00
parent e576a185ce
commit b67f557e59

View File

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