From ff2a1757eae53fd801a1ff692a10a41c8300acad Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 12 Jun 2002 22:57:23 +0000 Subject: [PATCH] . original commit: eac5581c599b208d0e5f629cb63f2ec9a7a21bd1 --- collects/tests/mred/draw.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.ss index d517c52c..63a83c86 100644 --- a/collects/tests/mred/draw.ss +++ b/collects/tests/mred/draw.ss @@ -442,10 +442,10 @@ [tan (make-object color% "TAN")]) (send dc set-background tan) (let* ([bits "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789/+"] - [bm (make-object bitmap% bits 8 8)]) + [bm (make-object bitmap% bits 64 8)]) (send dc draw-bitmap bm 306 164 'opaque)) (let* ([bits "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567"] - [bm (make-object bitmap% bits 6 10)]) + [bm (make-object bitmap% bits 48 10)]) (send dc draw-bitmap bm 306 184 'opaque)) (send dc set-background obg)))