From 384eb0ff1e143686bc62292cab0dedcb7fb9ae1a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 30 Mar 2014 11:12:08 -0600 Subject: [PATCH] racket/gui mac os x: fix compatible-bitmap scale on slow path original commit: 0a8b4f573b02777b7605498b9071f63ac23e477f --- pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/dc.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/dc.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/dc.rkt index 419a5c20..bba8669c 100644 --- a/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/dc.rkt +++ b/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/dc.rkt @@ -152,6 +152,7 @@ (define layer-bitmap% (class quartz-bitmap% (init w h win trans? flipped?) + (inherit get-backing-scale) (define layer (make-layer win w h)) (define layer-w w) @@ -236,7 +237,7 @@ (let ([bm (make-object quartz-bitmap% layer-w layer-h is-trans? - 1.0)]) + (get-backing-scale))]) (define dc (send bm make-dc)) ;; For some reason, we must touch the DC ;; to make transarent work right. It works