From 06c051ba0d5dbbba6d3cce423739b69b12ddc7f9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 23 Jun 2012 04:14:23 -0600
Subject: [PATCH] racket/gui, win32: fix problem with mimize for fixed-size
 window

original commit: c7d181c2a9937945c53460479b4f72ea721d2a73
---
 collects/mred/private/wx/win32/frame.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mred/private/wx/win32/frame.rkt b/collects/mred/private/wx/win32/frame.rkt
index 8d5d1f23..fa66f73d 100644
--- 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)]