From 0ae882672aeaec65bc1def0701006db2b7de31a3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 27 Sep 2005 05:58:39 +0000
Subject: [PATCH] enable smoothing for printing

svn: r918
---
 collects/slideshow/viewer.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/slideshow/viewer.ss b/collects/slideshow/viewer.ss
index 843bde6943..9de7a3f444 100644
--- 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)