suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: de4f042c7d0f75fdb504274803a20adab9e12504
This commit is contained in:
Matthew Flatt 2003-06-04 04:13:12 +00:00
parent f2616d6330
commit 2eed73644a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/mred/dc.ss
View File

@ -7,6 +7,7 @@
(define mdc (make-object bitmap-dc%)) (define mdc (make-object bitmap-dc%))
(define bm (make-object bitmap% 10 10)) (define bm (make-object bitmap% 10 10))
(define bm2 (make-object bitmap% 10 10))
(test #t 'is-color? (send bm is-color?)) (test #t 'is-color? (send bm is-color?))
@ -22,8 +23,8 @@
(define (test-all mdc try) (define (test-all mdc try)
(try 'clear) (try 'clear)
(try 'draw-arc 0 0 10 10 0.1 0.2) (try 'draw-arc 0 0 10 10 0.1 0.2)
(try 'draw-bitmap bm 0 0) (try 'draw-bitmap bm2 0 0)
(try 'draw-bitmap-section bm 0 0 0 0 5 5) (try 'draw-bitmap-section bm2 0 0 0 0 5 5)
(try 'draw-ellipse 0 0 10 10) (try 'draw-ellipse 0 0 10 10)
(try 'draw-line 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))) (try 'draw-lines (list (make-object point% 0 0) (make-object point% 10 10)))