From 6e977d7c20787cad4594df663525d3eb4310231f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 29 Jul 2010 09:40:39 -0600
Subject: [PATCH] hidden name message should simply not draw

---
 collects/mrlib/name-message.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/mrlib/name-message.rkt b/collects/mrlib/name-message.rkt
index cdb5fbdbc6..488fa9b250 100644
--- a/collects/mrlib/name-message.rkt
+++ b/collects/mrlib/name-message.rkt
@@ -185,6 +185,7 @@
         (let-values ([(w h) (get-client-size)])
           (cond
             [hidden? 
+             #;
              (let ([pen (send dc get-pen)]
                    [brush (send dc get-brush)])
                (send dc set-brush (send the-brush-list find-or-create-brush (get-panel-background) 'panel))