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

.

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

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

@ -523,7 +523,7 @@
(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)))
;; Alien-in-a-box character (beyond UCS-2)
;; Mathematical "A" (beyond UCS-2)
(let ([s "\U1D670"]
[x (+ x (* 1.5 w))])
(send dc set-font fnt)