From 38b8f80320cf033eea261fa60f472672a915f4d5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 25 Jul 2004 14:04:19 +0000 Subject: [PATCH] . original commit: 7a58fa0c86e2aa537381ea8ee33cf72bf9e6f4eb --- collects/mrlib/cache-image-snip.ss | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.ss index 9502b037..ae64317d 100644 --- a/collects/mrlib/cache-image-snip.ss +++ b/collects/mrlib/cache-image-snip.ss @@ -104,13 +104,11 @@ (define/override (draw dc x y left top right bottom dx dy draw-caret) (cond - [argb - (let ([bitmap (get-bitmap)]) - (send dc draw-bitmap bitmap x y 'solid - (send the-color-database find-color "black") - (send bitmap get-loaded-mask)))] - [dc-proc - (dc-proc dc x y)] + [argb (let ([bitmap (get-bitmap)]) + (send dc draw-bitmap bitmap x y 'solid + (send the-color-database find-color "black") + (send bitmap get-loaded-mask)))] + [dc-proc (dc-proc dc x y)] [else (void)])) (define/override (write f)