From 23908c23728d16cb3b7e1799180f4d6e5e5965c5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 7 Nov 2010 07:16:12 -0700 Subject: [PATCH] gtk: initialize canvas backing to white --- collects/mred/private/wx/gtk/dc.rkt | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/collects/mred/private/wx/gtk/dc.rkt b/collects/mred/private/wx/gtk/dc.rkt index 518ca143c2..ed66511f35 100644 --- a/collects/mred/private/wx/gtk/dc.rkt +++ b/collects/mred/private/wx/gtk/dc.rkt @@ -38,6 +38,12 @@ w h)) + ;; initialize bitmap to white: + (let ([cr (cairo_create s)]) + (cairo_set_source_rgba cr 1.0 1.0 1.0 1.0) + (cairo_paint cr) + (cairo_destroy cr)) + ;; `get-gdk-pixmap' and `install-gl-context' are ;; localized in "gl-context.rkt" (define/public (get-gdk-pixmap) pixmap)