From ca5edb884928f2ca69ddec9eb3516091798bfaf0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 13 May 2008 18:14:15 +0000
Subject: [PATCH] fix some updating problems, especially under Mac OS X with
 transparent canvases

svn: r9825

original commit: 52ced1f100243ff6b39f8c9e6da8f04389ebb605
---
 collects/mrlib/name-message.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mrlib/name-message.ss b/collects/mrlib/name-message.ss
index 44f7c0e5..a960572e 100644
--- a/collects/mrlib/name-message.ss
+++ b/collects/mrlib/name-message.ss
@@ -260,7 +260,7 @@
   
   (define label-width
     (if label
-        (let-values ([(w _1 _2 _3) (send dc get-text-extent label)])
+        (let-values ([(w _1 _2 _3) (send dc get-text-extent label button-label-font)])
           w)
         0))