From 58a5ba6bf29abd0ef37d46abae9d93ae58effc07 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 24 Dec 2008 23:25:20 +0000 Subject: [PATCH] PR 9986 svn: r12935 --- collects/drscheme/private/bitmap-message.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/bitmap-message.ss b/collects/drscheme/private/bitmap-message.ss index e3683e7472..80c440b0f7 100644 --- a/collects/drscheme/private/bitmap-message.ss +++ b/collects/drscheme/private/bitmap-message.ss @@ -5,7 +5,7 @@ (define bitmap-message% (class canvas% - (inherit min-width min-height get-dc) + (inherit min-width min-height get-dc refresh) (define bm #f) (define/override (on-paint) (when bm @@ -14,6 +14,7 @@ (define/public (set-bm b) (set! bm b) (min-width (send bm get-width)) - (min-height (send bm get-height))) + (min-height (send bm get-height)) + (refresh)) (super-new (stretchable-width #f) (stretchable-height #f))))