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

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

@ -142,20 +142,18 @@
(begin (begin
(show-print-setup #f #t) (show-print-setup #f #t)
(send (current-ps-setup) get-native)))) (send (current-ps-setup) get-native))))
(define-values (page-width page-height) (define-values (page-width page-height)
(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)