suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

check smoothing flag before enabling for printer output

Browse Source 
svn: r942
This commit is contained in:
Matthew Flatt 2005-09-29 15:56:47 +00:00
parent eb1c454246
commit a31d901061
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/slideshow/viewer.ss
View File

@ -1065,7 +1065,8 @@
(define (do-print)
(let ([ps-dc (dc-for-text-size)])
(send ps-dc set-smoothing 'aligned) ; for printer-dc%
(when config:smoothing?
(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)