From 2eed73644a40ebe00de0dd03add588490c6864f7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 4 Jun 2003 04:13:12 +0000 Subject: [PATCH] . original commit: de4f042c7d0f75fdb504274803a20adab9e12504 --- collects/tests/mred/dc.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/tests/mred/dc.ss b/collects/tests/mred/dc.ss index 79cc3ad3..d53584c7 100644 --- a/collects/tests/mred/dc.ss +++ b/collects/tests/mred/dc.ss @@ -7,6 +7,7 @@ (define mdc (make-object bitmap-dc%)) (define bm (make-object bitmap% 10 10)) +(define bm2 (make-object bitmap% 10 10)) (test #t 'is-color? (send bm is-color?)) @@ -22,8 +23,8 @@ (define (test-all mdc try) (try 'clear) (try 'draw-arc 0 0 10 10 0.1 0.2) - (try 'draw-bitmap bm 0 0) - (try 'draw-bitmap-section bm 0 0 0 0 5 5) + (try 'draw-bitmap bm2 0 0) + (try 'draw-bitmap-section bm2 0 0 0 0 5 5) (try 'draw-ellipse 0 0 10 10) (try 'draw-line 0 0 10 10) (try 'draw-lines (list (make-object point% 0 0) (make-object point% 10 10)))