From 502677e5bb5ffad8fa61e4d7475fce9b8ecb55c6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@cs.utah.edu>
Date: Sat, 1 Jan 2011 11:32:38 -0700
Subject: [PATCH] win32: fix problem with bitmap labels  related to PR 11566

original commit: a916f1af42ca6de02ac459da5614947473a72d44
---
 collects/mred/private/wx/win32/hbitmap.rkt | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/collects/mred/private/wx/win32/hbitmap.rkt b/collects/mred/private/wx/win32/hbitmap.rkt
index 4ca70954..f4b2569a 100644
--- a/collects/mred/private/wx/win32/hbitmap.rkt
+++ b/collects/mred/private/wx/win32/hbitmap.rkt
@@ -4,6 +4,7 @@
          racket/draw
          racket/draw/private/local
          racket/class
+	 "dc.rkt"
          "types.rkt"
          "utils.rkt"
          "const.rkt")
@@ -18,6 +19,18 @@
                          #:bg [bg (GetSysColor COLOR_BTNFACE)])
   (let* ([w (send bm get-width)]
          [h (send bm get-height)]
+	 [bm (if (bm . is-a? . win32-bitmap%)
+		 ;; Windows wants to use the result bitmap
+		 ;; as an ARGB bitmap, but Cairo seems to transfer
+		 ;; RGB win32 bitmaps to RGB win32 bitmaps in a
+		 ;; way that sometimes mangles the alpha; avoid the
+		 ;; problem by first copying to a Cairo memory bitmap.
+		 (let* ([new-b (make-object bitmap% w h #f #f)]
+			[dc (make-object bitmap-dc% new-b)])
+		   (send dc draw-bitmap bm 0 0)
+		   (send dc set-bitmap #f)
+		   new-b)
+		 bm)]
          [mask-bm (or mask-bm
                       (send bm get-loaded-mask))]
          [to-frac (lambda (v) (/ v 255.0))]