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

.

Browse Source 
original commit: efe0621cad0a8e3ace1686eb4b2965f3b5d34dfe
This commit is contained in:
Matthew Flatt 2002-04-23 20:35:54 +00:00
parent e2d70c038e
commit 6086f4137d
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/mred/draw-info.txt
View File

@ -38,6 +38,13 @@ The drawing area should have the following features:
an 25% black B&W bitmap, and a red box frame should be draw with a
50% red stipple.
To the right of those two boxes should appear two little boxes,
black pixels on a tan background, the top one 8x8 and the bottom
on 6x10. The black pixels in the top one should form a vertical
line right or center with a kind of semi-spring on the left
edge. The black pixels in 6x10 should be just a longer semi-spring
to the left.
The drawings under "0 x 0" and "1 x 1" should look nearly the same:
TopLeft: h-line should be left-aligned with box below it, but

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

@ -437,6 +437,18 @@
(send dc set-brush orig-b)
(send dc set-pen orig-pen))))
(unless no-bitmaps?
(let ([obg (send dc get-background)]
[tan (make-object color% "TAN")])
(send dc set-background tan)
(let* ([bits "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789/+"]
[bm (make-object bitmap% bits 8 8)])
(send dc draw-bitmap bm 306 164 'opaque))
(let* ([bits "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567"]
[bm (make-object bitmap% bits 6 10)])
(send dc draw-bitmap bm 306 184 'opaque))
(send dc set-background obg)))
(when last?
; Test get-text-extent
(let ([save-pen (send dc get-pen)]