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

fix transparent-canvas detection

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-17 10:45:48 -07:00
parent 24ea7d34fc
commit 0c4d2e332c
6 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/cocoa/canvas.rkt
View File

@ -360,7 +360,7 @@
(tellv content-cocoa setDelegate: content-cocoa) (tellv content-cocoa setDelegate: content-cocoa)
(install-control-font content-cocoa #f)) (install-control-font content-cocoa #f))
(define dc (make-object dc% this)) (define dc (make-object dc% this (memq 'transparent canvas-style)))
(send dc start-backing-retained) (send dc start-backing-retained)

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

@ -23,11 +23,12 @@
(define dc% (define dc%
(class backing-dc% (class backing-dc%
(init [(cnvs canvas)]) (init [(cnvs canvas)]
transparent?)
(define canvas cnvs) (define canvas cnvs)
(inherit end-delay) (inherit end-delay)
(super-new [transparent? (not (send canvas get-canvas-background))]) (super-new [transparent? transparent?])
(define gl #f) (define gl #f)
(define/override (get-gl-context) (define/override (get-gl-context)

2
collects/mred/private/wx/gtk/canvas.rkt
View File

@ -284,7 +284,7 @@
(set-size x y w h) (set-size x y w h)
(define dc (new dc% [canvas this])) (define dc (new dc% [canvas this] [transparent? (memq 'transparent style)]))
(define for-gl? (memq 'gl style)) (define for-gl? (memq 'gl style))
(when for-gl? (when for-gl?

5
collects/mred/private/wx/gtk/dc.rkt
View File

@ -92,11 +92,12 @@
(define dc% (define dc%
(class backing-dc% (class backing-dc%
(init [(cnvs canvas)]) (init [(cnvs canvas)]
transparent?)
(inherit end-delay) (inherit end-delay)
(define canvas cnvs) (define canvas cnvs)
(super-new [transparent? (not (send canvas get-canvas-background))]) (super-new [transparent? transparent?])
(define gl #f) (define gl #f)
(define/override (get-gl-context) (define/override (get-gl-context)

2
collects/mred/private/wx/win32/canvas.rkt
View File

@ -204,7 +204,7 @@
(define/override (wndproc-for-ctlproc w msg wParam lParam default) (define/override (wndproc-for-ctlproc w msg wParam lParam default)
(default w msg wParam lParam)) (default w msg wParam lParam))
(define dc (new dc% [canvas this])) (define dc (new dc% [canvas this] [transparent? (memq 'transparent style)]))
(send dc start-backing-retained) (send dc start-backing-retained)
(define/public (get-dc) dc) (define/public (get-dc) dc)

5
collects/mred/private/wx/win32/dc.rkt
View File

@ -63,11 +63,12 @@
(define dc% (define dc%
(class backing-dc% (class backing-dc%
(init [(cnvs canvas)]) (init [(cnvs canvas)]
transparent?)
(inherit end-delay) (inherit end-delay)
(define canvas cnvs) (define canvas cnvs)
(super-new [transparent? (not (send canvas get-canvas-background))]) (super-new [transparent? transparent?])
(define gl #f) (define gl #f)
(define/override (get-gl-context) (define/override (get-gl-context)