enable smoothing for printing

svn: r918
2005-09-27 05:58:39 +00:00 · 2005-09-27 05:58:39 +00:00 · 0ae882672a
commit 0ae882672a
parent 1726d11233
1 changed files with 1 additions and 0 deletions
--- a/collects/slideshow/viewer.ss
+++ b/collects/slideshow/viewer.ss
@ -1065,6 +1065,7 @@
      
      (define (do-print)
 	(let ([ps-dc (dc-for-text-size)])
+	  (send ps-dc set-smoothing 'aligned) ; for printer-dc%
 	  (let loop ([start? #f][l (list-tail talk-slide-list current-page)][n current-page])
 	    (unless (null? l)
 	      (set! current-page n)