racket/gui, win32: fix problem with mimize for fixed-size window

2012-06-23 04:14:23 -06:00 · 2012-06-23 04:14:23 -06:00 · c7d181c2a9
commit c7d181c2a9
parent 91791983aa
1 changed files with 2 additions and 1 deletions
--- a/collects/mred/private/wx/win32/frame.rkt
+++ b/collects/mred/private/wx/win32/frame.rkt
@ -318,7 +318,8 @@
 			 (void))
      (stdret 0 1)]
     [(= msg WM_MOVE)
-      (queue-window-event this (lambda () (queue-on-size)))
+      (unless (iconized?)
+        (queue-window-event this (lambda () (queue-on-size))))
      (stdret 0 1)]
     [(= msg WM_ACTIVATE)
      (let ([state (LOWORD wParam)]