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

fix clipping-region issues

Browse Source 
original commit: d10669d34e79f77f0041ccfdb99079336c006e64
This commit is contained in:
Matthew Flatt 2010-08-01 16:57:21 -06:00
parent e0406cdeb7
commit 4015840a60
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mred/private/wx/cocoa/dc.rkt
View File

@ -47,16 +47,19 @@
(cairo_surface_destroy surface))
(set! clip-width width)
(set! clip-height height)
(cairo_rectangle cr 0 0 width height)
(cairo_clip cr))
(reset-clip cr))
(define clip-width width)
(define clip-height height)
(define/override (reset-clip cr)
(super reset-clip cr)
(cairo_rectangle cr 0 0 clip-width clip-height)
(cairo_clip cr))
(let ([m (make-cairo_matrix_t 0 0 0 0 0 0)])
(cairo_get_matrix cr m)
(cairo_set_matrix cr (make-cairo_matrix_t 1 0 0 1 0 0))
(cairo_rectangle cr 0 0 clip-width clip-height)
(cairo_clip cr)
(cairo_set_matrix cr m)))
(define cr #f)
(set-bounds dx dy width height)