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

.

Browse Source 
original commit: eac5581c599b208d0e5f629cb63f2ec9a7a21bd1
This commit is contained in:
Matthew Flatt 2002-06-12 22:57:23 +00:00
parent d2395e8d78
commit ff2a1757ea
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/mred/draw.ss
View File

@ -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)))