Permalink
Browse files

fix for Gtk back-end

  • Loading branch information...
mflatt committed Apr 15, 2014
1 parent d4cf4f4 commit 1c0c24cb8f3940aca0e48c26361c7a690f237205
Showing with 3 additions and 1 deletion.
  1. +3 −1 pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/canvas.rkt
@@ -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)

0 comments on commit 1c0c24c

Please sign in to comment.