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

win32: fix(?) printing page-size calculation when in 100*mm

Browse Source 
Windows provide page metrics in either 1000ths of inches or
100ths of millimeters. I think Racket's calculation was wrong
in the mm case.
This commit is contained in:
Matthew Flatt 2012-09-19 08:40:24 -06:00
parent f82a19c963
commit 4f75350bf3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/win32/printer-dc.rkt
View File

@ -168,7 +168,7 @@
(let ([scale (if (zero? (bitwise-and (PAGESETUPDLG-Flags page-setup)
PSD_INTHOUSANDTHSOFINCHES))
;; 100ths of mm
(/ SCREEN-DPI (* 10.0 2.54))
(/ SCREEN-DPI (* 1000.0 2.54))
;; 1000ths of in
(/ SCREEN-DPI 1000.0))]
[r (PAGESETUPDLG-rtMargin page-setup)]