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

fix problem with mm printer measurements

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-14 15:51:05 -07:00
parent b10ad75d11
commit 06e5d7d6c8
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -147,15 +147,13 @@
(let ([scale (if (zero? (bitwise-and (PAGESETUPDLG-Flags page-setup) (let ([scale (if (zero? (bitwise-and (PAGESETUPDLG-Flags page-setup)
PSD_INTHOUSANDTHSOFINCHES)) PSD_INTHOUSANDTHSOFINCHES))
;; 100ths of mm ;; 100ths of mm
(/ SCREEN-DPI (/ 10.0 2.54)) (/ SCREEN-DPI (* 10.0 2.54))
;; 1000ths of in ;; 1000ths of in
(/ SCREEN-DPI 1000.0))]) (/ SCREEN-DPI 1000.0))])
(values (values
(* scale (POINT-x (PAGESETUPDLG-ptPaperSize page-setup))) (* scale (POINT-x (PAGESETUPDLG-ptPaperSize page-setup)))
(* scale (POINT-y (PAGESETUPDLG-ptPaperSize page-setup)))))) (* scale (POINT-y (PAGESETUPDLG-ptPaperSize page-setup))))))
(define/override (get-size) (values page-width page-height)) (define/override (get-size) (values page-width page-height))
(define start-doc-message #f) (define start-doc-message #f)