From 4f75350bf3b8e45ebe8c92388ffa83855e56c5aa Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 19 Sep 2012 08:40:24 -0600 Subject: [PATCH] win32: fix(?) printing page-size calculation when in 100*mm Windows provide page metrics in either 1000ths of inches or 100ths of millimeters. I think Racket's calculation was wrong in the mm case. --- collects/mred/private/wx/win32/printer-dc.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/wx/win32/printer-dc.rkt b/collects/mred/private/wx/win32/printer-dc.rkt index 87222570c3..7d44c06baf 100644 --- a/collects/mred/private/wx/win32/printer-dc.rkt +++ b/collects/mred/private/wx/win32/printer-dc.rkt @@ -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)]