win32: fix transparent-canvas support

2010-12-17 09:33:11 -07:00 · 2010-12-17 09:33:11 -07:00 · fc4165ec40
commit fc4165ec40
parent f700a15d85
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/wx/win32/dc.rkt
+++ b/collects/mred/private/wx/win32/dc.rkt
@ -116,7 +116,7 @@
            (let* ([surface (cairo_win32_surface_create hdc)]
                   [cr (cairo_create surface)])
              (cairo_surface_destroy surface)
-              (backing-draw-bm cr bm (unbox w) (unbox h))
+              (backing-draw-bm bm cr (unbox w) (unbox h))
              (cairo_destroy cr))))))

 (define (request-flush-delay canvas)