From 20ad3e19fddc4ba63921fcd4b0901cb70ce7d351 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 8 Mar 2003 13:50:06 +0000
Subject: [PATCH] .

original commit: b05b0bdf2b90471864817477edcd693f216a121d
---
 collects/mred/mred.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index ef9276f8..837af593 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -1987,6 +1987,7 @@
     (define/override on-paint
       (entry-point
        (lambda ()
+	 (compute-sizes)
 	 (let ([dc (get-dc)])
 	   (send dc set-background bg-color)
 	   (send dc set-font font)