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

avoid 10.6-only print-scaling methods

Browse Source 
original commit: 0521f20f2639288d926594abb242a5aed1e71cd1
This commit is contained in:
Matthew Flatt 2010-10-17 21:00:50 -07:00
parent ef52659ef2
commit 45ef0beadd
1 changed files with 29 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
collects/mred/private/wx/cocoa/printer-dc.rkt
View File

@ -10,6 +10,7 @@
racket/draw/ps-setup racket/draw/ps-setup
ffi/unsafe ffi/unsafe
ffi/unsafe/objc ffi/unsafe/objc
"../../lock.rkt"
"dc.rkt" "dc.rkt"
"cg.rkt" "cg.rkt"
"utils.rkt" "utils.rkt"
@ -19,11 +20,14 @@
show-print-setup) show-print-setup)
(import-class NSPrintOperation NSView NSGraphicsContext (import-class NSPrintOperation NSView NSGraphicsContext
NSPrintInfo NSDictionary NSPageLayout) NSPrintInfo NSDictionary NSPageLayout
NSNumber)
(define NSPortraitOrientation 0) (define NSPortraitOrientation 0)
(define NSLandscapeOrientation 1) (define NSLandscapeOrientation 1)
(define-cocoa NSPrintScalingFactor _id)
(define-objc-class PrinterView NSView (define-objc-class PrinterView NSView
[wxb] [wxb]
[-a _BOOL (knowsPageRange: [_NSRange-pointer rng]) [-a _BOOL (knowsPageRange: [_NSRange-pointer rng])
@ -57,15 +61,33 @@
(tell prev dictionary) (tell prev dictionary)
(tell NSDictionary dictionary))))) (tell NSDictionary dictionary)))))
(define (get-scaling-factor print-info)
;; 10.6 only:
#;
(tell #:type _CGFloat print-info scalingFactor)
(atomically
(with-autorelease
(tell #:type _double
(tell (tell print-info dictionary)
objectForKey: NSPrintScalingFactor)
doubleValue))))
(define (install-pss-to-print-info pss print-info) (define (install-pss-to-print-info pss print-info)
(tellv print-info setOrientation: #:type _int (if (eq? (send pss get-orientation) 'landscape) (tellv print-info setOrientation: #:type _int (if (eq? (send pss get-orientation) 'landscape)
NSLandscapeOrientation NSLandscapeOrientation
NSPortraitOrientation)) NSPortraitOrientation))
(tellv print-info setScalingFactor: #:type _CGFloat (let ([x (box 0)] (let ([scale (let ([x (box 0)]
[y (box 0)]) [y (box 0)])
(send pss get-scaling x y) (send pss get-scaling x y)
(unbox y)))) (unbox y))])
;; 10.6 only:
#;
(tellv print-info setScalingFactor: #:type _CGFloat scale)
(atomically
(with-autorelease
(tellv (tell print-info dictionary)
setObject: (tell NSNumber numberWithDouble: #:type _double scale)
forKey: NSPrintScalingFactor)))))
(define NSOkButton 1) (define NSOkButton 1)
@ -84,7 +106,7 @@
(send pss set-orientation (if (= o NSLandscapeOrientation) (send pss set-orientation (if (= o NSLandscapeOrientation)
'landscape 'landscape
'portrait))) 'portrait)))
(let ([s (tell #:type _CGFloat print-info scalingFactor)]) (let ([s (get-scaling-factor print-info)])
(send pss set-scaling s s)) (send pss set-scaling s s))
#t) #t)
#f))) #f)))
@ -113,7 +135,7 @@
(define-values (page-width page-height page-scaling) (define-values (page-width page-height page-scaling)
(let ([s (NSRect-size (tell #:type _NSRect print-info imageablePageBounds))] (let ([s (NSRect-size (tell #:type _NSRect print-info imageablePageBounds))]
[scaling (tell #:type _CGFloat print-info scalingFactor)]) [scaling (get-scaling-factor print-info)])
(values (NSSize-width s) (values (NSSize-width s)
(NSSize-height s) (NSSize-height s)
scaling))) scaling)))