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

racket/gui Windows: rely on patched Cairo instead of workaround

Browse Source
This commit is contained in:
Matthew Flatt 2014-09-25 15:15:22 -06:00
parent 116e06407b
commit 3ad2cb83bb
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/gui-pkgs/gui-lib/mred/private/wx/win32/dc.rkt
View File

@ -31,7 +31,8 @@
(define hwnd-param (make-parameter #f)) (define hwnd-param (make-parameter #f))
(define need-clip-workarounds? #t) (define need-clip-text-workaround? #t)
(define need-clip-refresh-workaround? #f) ; patched Cairo
(define win32-bitmap% (define win32-bitmap%
(class win32-no-hwnd-bitmap% (class win32-no-hwnd-bitmap%
@ -77,7 +78,7 @@
;; region is set, we draw text, and then the clipping ;; region is set, we draw text, and then the clipping
;; region is changed, the change doesn't take ;; region is changed, the change doesn't take
;; until we draw more text --- but only with DDB surfaces. ;; until we draw more text --- but only with DDB surfaces.
(when need-clip-workarounds? (when need-clip-text-workaround?
(let ([bm (internal-get-bitmap)]) (let ([bm (internal-get-bitmap)])
(when (bm . is-a? . win32-bitmap%) (when (bm . is-a? . win32-bitmap%)
(SelectClipRgn (cairo_win32_surface_get_dc (SelectClipRgn (cairo_win32_surface_get_dc
@ -131,11 +132,11 @@
(define sh (->screen (unbox h))) (define sh (->screen (unbox h)))
(define r (make-RECT 0 0 sw sh)) (define r (make-RECT 0 0 sw sh))
(define clip-type (define clip-type
(if need-clip-workarounds? (if need-clip-refresh-workaround?
(GetClipBox hdc r) (GetClipBox hdc r)
SIMPLEREGION)) SIMPLEREGION))
(cond (cond
[(and need-clip-workarounds? [(and need-clip-refresh-workaround?
(not (and (= clip-type SIMPLEREGION) (not (and (= clip-type SIMPLEREGION)
(= (RECT-left r) 0) (= (RECT-left r) 0)
(= (RECT-top r) 0) (= (RECT-top r) 0)