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? (when for-gl?
(prepare-widget-gl-context client-gtk gl-config)) (prepare-widget-gl-context client-gtk gl-config))
(define dc #f)
(super-new [parent parent] (super-new [parent parent]
[gtk gtk] [gtk gtk]
[client-gtk client-gtk] [client-gtk client-gtk]
@ -363,7 +365,7 @@
(super set-size x y w h) (super set-size x y w h)
(on-size)) (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 gtk)
(gtk_widget_realize client-gtk) (gtk_widget_realize client-gtk)