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

fix for Gtk back-end

Browse Source
This commit is contained in:
Matthew Flatt 2014-04-15 07:02:28 -06:00
parent d4cf4f4ee8
commit 1c0c24cb8f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/canvas.rkt
View File

@ -341,6 +341,8 @@
(when for-gl?
(prepare-widget-gl-context client-gtk gl-config))
(define dc #f)
(super-new [parent parent]
[gtk gtk]
[client-gtk client-gtk]
@ -363,7 +365,7 @@
(super set-size x y w h)
(on-size))
(define dc (new dc% [canvas this] [transparent? (memq 'transparent style)]))
(set! dc (new dc% [canvas this] [transparent? (memq 'transparent style)]))
(gtk_widget_realize gtk)
(gtk_widget_realize client-gtk)