From 4e249b61a8a8ec87e88ffccba9cda7bd13345b4c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 18 Oct 2010 17:28:29 -0700
Subject: [PATCH] fix save-file and get-argb-pixels for screen bitmaps

original commit: 674d2e524858398f715b391d565153ced0443e45
---
 collects/mred/private/wx/cocoa/dc.rkt | 14 +++++++++++---
 collects/scribblings/gui/blurbs.rkt   |  3 ++-
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/collects/mred/private/wx/cocoa/dc.rkt b/collects/mred/private/wx/cocoa/dc.rkt
index 72e77eaa..aaa1bc4d 100644
--- a/collects/mred/private/wx/cocoa/dc.rkt
+++ b/collects/mred/private/wx/cocoa/dc.rkt
@@ -26,9 +26,17 @@
     (super-make-object (make-alternate-bitmap-kind w h))
 
     (define s
-      (cairo_quartz_surface_create CAIRO_FORMAT_ARGB32
-                                   w
-                                   h))
+      (let ([s (cairo_quartz_surface_create CAIRO_FORMAT_ARGB32
+                                            w
+                                            h)])
+        ;; initialize bitmap to empty - needed?
+        #;
+        (let ([cr (cairo_create s)])
+          (cairo_set_operator cr CAIRO_OPERATOR_CLEAR)
+          (cairo_set_source_rgba cr 1.0 1.0 1.0 1.0)
+          (cairo_paint cr)
+          (cairo_destroy cr))
+        s))
 
     (define/override (ok?) #t)
     (define/override (is-color?) #t)
diff --git a/collects/scribblings/gui/blurbs.rkt b/collects/scribblings/gui/blurbs.rkt
index bd23f1db..425a7eef 100644
--- a/collects/scribblings/gui/blurbs.rkt
+++ b/collects/scribblings/gui/blurbs.rkt
@@ -4,7 +4,8 @@
            scribble/manual
            scribble/scheme
            scribble/decode
-           (for-label scheme/gui/base)
+           (for-label scheme/gui/base
+                      scheme/base)
            (for-syntax scheme/base))
 
   (provide (except-out (all-defined-out) p define-inline))