From ad4377d44bdedb8aba5e96bac8cd85137cd32cf0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@cs.utah.edu>
Date: Thu, 21 Jul 2011 17:26:38 -0600
Subject: [PATCH] work around win64 drawing problem

Merge to 5.1.2
(cherry picked from commit 8711aa6c5d819899fce1ff06f5bf60fe01cc10cb)
---
 collects/mred/private/wx/win32/dc.rkt | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/collects/mred/private/wx/win32/dc.rkt b/collects/mred/private/wx/win32/dc.rkt
index 649e673d5d..85caeb7fac 100644
--- a/collects/mred/private/wx/win32/dc.rkt
+++ b/collects/mred/private/wx/win32/dc.rkt
@@ -1,5 +1,6 @@
 #lang racket/base
 (require ffi/unsafe
+	 ffi/winapi
          racket/class
          "utils.rkt"
          "types.rkt"
@@ -20,6 +21,8 @@
               request-flush-delay
               cancel-flush-delay))
 
+(define-gdi32 SelectClipRgn (_wfun _pointer _pointer -> _int))
+
 (define win32-bitmap%
   (class bitmap%
     (init w h hwnd [gl-config #f])
@@ -70,6 +73,21 @@
 
     (super-new [transparent? transparent?])
 
+    (inherit internal-get-bitmap)
+    (define/override (reset-clip cr)
+      (super reset-clip cr)
+      ;; Work around a Cairo(?) bug. When a clipping
+      ;; region is set, we draw text, and then the clipping
+      ;; region is changed, the change doesn't take
+      ;; until we draw more text --- but only under Win64,
+      ;; and only with DDB surfaces.
+      (when win64?
+	(let ([bm (internal-get-bitmap)])
+	  (when (bm . is-a? . win32-bitmap%)
+	    (SelectClipRgn (cairo_win32_surface_get_dc
+			    (send bm get-cairo-surface))
+			   #f)))))
+
     (define gl #f)
     (define/override (get-gl-context)
       (or gl