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

original commit: c7d181c2a9937945c53460479b4f72ea721d2a73
2012-06-23 04:14:23 -06:00 · 2012-06-23 04:14:23 -06:00 · 06c051ba0d
commit 06c051ba0d
parent 67b89ffbb2
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)]