From 95fd314cadb4b6f1cd3e04212bdd2ade6910bba9 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 15 Dec 2010 13:59:57 -0500 Subject: [PATCH] Fixes for PNG conversion, and make `image-snip%' convertible. original commit: 13cae20838e8d7a6de1fff3c242fb8d85fca22cb --- collects/mrlib/image-core.rkt | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/collects/mrlib/image-core.rkt b/collects/mrlib/image-core.rkt index b95c8314..8d65e271 100644 --- a/collects/mrlib/image-core.rkt +++ b/collects/mrlib/image-core.rkt @@ -28,6 +28,7 @@ has been moved out). |# (require racket/class + racket/draw racket/gui/base racket/math racket/contract @@ -211,13 +212,15 @@ has been moved out). (define (to-bitmap img) (let* ([bb (send img get-bb)] - [bm (make-object bitmap% - (add1 (inexact->exact (ceiling (bb-right bb)))) - (add1 (inexact->exact (ceiling (bb-bottom bb)))))] - [bdc (make-object bitmap-dc% bm)]) + [bm (make-bitmap + (add1 (inexact->exact (ceiling (bb-right bb)))) + (add1 (inexact->exact (ceiling (bb-bottom bb)))))] + [bdc (new bitmap-dc% [bitmap bm])]) (send bdc clear) (render-image img bdc 0 0) - (send bdc get-bitmap))) + (begin0 + (send bdc get-bitmap) + (send bdc set-bitmap #f))) (define image% (class* snip% (png-convertible<%> equal<%> image<%>)