From a0e81f7b3c4b3af69260bc5fa54efea1bfbbc92e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 13 Oct 2004 21:03:52 +0000 Subject: [PATCH] . original commit: bbd690848d76bba5cd5e5ff8cfb35b7e9491c380 --- collects/tests/mred/draw.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.ss index fa6bbd45..8c406ca9 100644 --- a/collects/tests/mred/draw.ss +++ b/collects/tests/mred/draw.ss @@ -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)