From 18ca91dc97eb6b1326fe1b92a923a25fdb883fa7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@cs.utah.edu>
Date: Sat, 1 Jan 2011 13:48:57 -0700
Subject: [PATCH] win32: make bitmap+string label look right in Win7

---
 collects/mred/private/wx/win32/button.rkt | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/mred/private/wx/win32/button.rkt b/collects/mred/private/wx/win32/button.rkt
index 92dae1bb0d..2a7e3626d7 100644
--- a/collects/mred/private/wx/win32/button.rkt
+++ b/collects/mred/private/wx/win32/button.rkt
@@ -48,10 +48,10 @@
                                                       (if bitmap?
 							  (case orientation
 							    [(#f) BS_BITMAP]
-							    [(left) BS_RIGHT]
-							    [(right) BS_LEFT]
-							    [(top) BS_BOTTOM]
-							    [(bottom) BS_TOP])
+							    [(left) BS_LEFT]
+							    [(right) BS_RIGHT]
+							    [(top) BS_TOP]
+							    [(bottom) BS_BOTTOM])
                                                           0))
                                          0 0 0 0
                                          (send parent get-client-hwnd)
@@ -77,7 +77,7 @@
        [orientation
 	(let ([h? (memq orientation '(left right))])
 	  (auto-size font (list (car label) (cadr label))
-		     0 0 4 4
+		     0 0 12 8
 		     #:combine-width (if h? + max)
 		     #:combine-height (if h? max +)))]
        [bitmap?