From 1c0c24cb8f3940aca0e48c26361c7a690f237205 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 15 Apr 2014 07:02:28 -0600 Subject: [PATCH] fix for Gtk back-end --- pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/canvas.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/canvas.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/canvas.rkt index 4e78feb530..51858bc6f9 100644 --- a/pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/canvas.rkt +++ b/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)