From 010001efba88822000cdcb724713fff4ab530cf5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 12 Nov 2005 17:20:12 +0000 Subject: [PATCH] added smoothing to show-pict svn: r1298 --- collects/texpict/private/mrpict-extra.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/texpict/private/mrpict-extra.ss b/collects/texpict/private/mrpict-extra.ss index 07eddc4f25..f4f3c10e2c 100644 --- a/collects/texpict/private/mrpict-extra.ss +++ b/collects/texpict/private/mrpict-extra.ss @@ -56,6 +56,7 @@ (super-instantiate ()))) (define f (make-object pict-frame% "MrPict")) (define c (make-object pict-canvas% f)) + (send (send c get-dc) set-smoothing 'aligned) (send f set-pict p) (send f show #t)))