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

racket/gui mac os x: fix compatible-bitmap scale on slow path

Browse Source 
original commit: 0a8b4f573b02777b7605498b9071f63ac23e477f
This commit is contained in:
Matthew Flatt 2014-03-30 11:12:08 -06:00
parent b4decca6da
commit 384eb0ff1e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/dc.rkt
View File

@ -152,6 +152,7 @@
(define layer-bitmap% (define layer-bitmap%
(class quartz-bitmap% (class quartz-bitmap%
(init w h win trans? flipped?) (init w h win trans? flipped?)
(inherit get-backing-scale)
(define layer (make-layer win w h)) (define layer (make-layer win w h))
(define layer-w w) (define layer-w w)
@ -236,7 +237,7 @@
(let ([bm (make-object quartz-bitmap% (let ([bm (make-object quartz-bitmap%
layer-w layer-h layer-w layer-h
is-trans? is-trans?
1.0)]) (get-backing-scale))])
(define dc (send bm make-dc)) (define dc (send bm make-dc))
;; For some reason, we must touch the DC ;; For some reason, we must touch the DC
;; to make transarent work right. It works ;; to make transarent work right. It works