added smoothing to show-pict

svn: r1298
2005-11-12 17:20:12 +00:00 · 2005-11-12 17:20:12 +00:00 · 010001efba
commit 010001efba
parent 4d6d674d9f
1 changed files with 1 additions and 0 deletions
--- 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)))