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

.

Browse Source 
original commit: a011f598e69bb031041a75ed509e8c9b585098a9
This commit is contained in:
Matthew Flatt 2004-10-13 21:03:29 +00:00
parent 1366d41313
commit f0316113e7
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -522,7 +522,16 @@
(send dc set-font fnt)
(let-values ([(w h d a) (send dc get-text-extent s cfnt kern?)])
(send dc draw-rectangle x y w h)
(send dc draw-line x (+ y (- h d)) (+ x w) (+ y (- h d))))))
(send dc draw-line x (+ y (- h d)) (+ x w) (+ y (- h d)))
;; Alien-in-a-box character (beyond UCS-2)
(let ([s "\U1D670"]
[x (+ x (* 1.5 w))])
(send dc set-font fnt)
(send dc draw-text s x y kern?)
(send dc set-font fnt)
(let-values ([(w h d a) (send dc get-text-extent s cfnt kern?)])
(send dc draw-rectangle x y w h)
(send dc draw-line x (+ y (- h d)) (+ x w) (+ y (- h d))))))))
(loop (cdr fam) (cdr stl) (cdr wgt) (cdr sze) x (+ y h) #f)))))
(send dc set-pen save-pen)))