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

fix for Gtk back-end

Browse Source 
original commit: 1c0c24cb8f3940aca0e48c26361c7a690f237205
This commit is contained in:
Matthew Flatt 2014-04-15 07:02:28 -06:00
parent 9d8f3de27d
commit 4317645cb4
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)