From da9c34cd5276628a41a87daa3a840007f170ea83 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 8 Jan 2011 14:52:36 -0600 Subject: [PATCH] use the new refresh-now method --- collects/drracket/private/unit.rkt | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt index 8e2bb897d2..5fbd16b4df 100644 --- a/collects/drracket/private/unit.rkt +++ b/collects/drracket/private/unit.rkt @@ -4024,9 +4024,7 @@ module browser threading seems wrong. (define/public (set-color-status! v?) (when color-status-canvas (set! color-valid? v?) - (send (send color-status-canvas get-dc) erase) - (send color-status-canvas on-paint) - (send color-status-canvas flush))) + (send color-status-canvas refresh-now))) (define running-canvas (new running-canvas% [parent (get-info-panel)]))