diff --git a/collects/mred/private/wx/gtk/canvas.rkt b/collects/mred/private/wx/gtk/canvas.rkt index 80b47b334c..56df00e95b 100644 --- a/collects/mred/private/wx/gtk/canvas.rkt +++ b/collects/mred/private/wx/gtk/canvas.rkt @@ -204,12 +204,12 @@ (gtk_widget_queue_draw client-gtk)) (define/public (reset-child-dcs) - (send dc reset-dc #t)) + (send dc reset-dc)) (define/override (maybe-register-as-child parent on?) (register-as-child parent on?)) (define/override (internal-on-client-size w h) - (send dc reset-dc #f)) + (send dc reset-dc)) (define/override (on-client-size w h) (let ([xb (box 0)] [yb (box 0)]) diff --git a/collects/mred/private/wx/gtk/dc.rkt b/collects/mred/private/wx/gtk/dc.rkt index f957b182d4..20e5302995 100644 --- a/collects/mred/private/wx/gtk/dc.rkt +++ b/collects/mred/private/wx/gtk/dc.rkt @@ -31,15 +31,13 @@ (set! c (gdk_cairo_create w)) c)))) - (define/public (reset-dc force?) - (when (or force? - (eq? 'windows (system-type))) - ;; FIXME: ensure that the dc is not in use - (as-entry - (lambda () - (when c - (cairo_destroy c) - (set! c #f)))))) + (define/public (reset-dc) + ;; FIXME: ensure that the dc is not in use + (as-entry + (lambda () + (when c + (cairo_destroy c) + (set! c #f))))) (define/override (get-size) (let-values ([(w h) (get-client-size)])