From 8ffbdfad9b58989553ac39d81c02383bd800ad2e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 5 Feb 2004 15:45:43 +0000
Subject: [PATCH] .

original commit: 967221c638dd27fe557c021a0577978da22a3a14
---
 collects/mred/mred.ss           | 9 +++++----
 collects/mred/private/kernel.ss | 1 +
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index e95735f4..baeb49a8 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -2169,7 +2169,8 @@
 	   (send dc clear)
 	   (send dc draw-text lbl group-right-inset 0)
 	   (send dc set-pen light-pen)
-	   (let-values ([(w h) (my-get-client-size)])
+	   (let-values ([(w h) (my-get-client-size)]
+			[(tw th ta td) (send dc get-text-extent lbl)])
 	     (send dc draw-line 
 		   1 (/ lbl-h 2)
 		   (- group-right-inset 2) (/ lbl-h 2))
@@ -2185,8 +2186,8 @@
 	     (send dc draw-line
 		   (- w 2) (/ lbl-h 2)
 		   (min (- w 2)
-			(+ group-right-inset 4 lbl-w))
-		    (/ lbl-h 2)))))))
+			(+ group-right-inset 4 tw))
+		   (/ lbl-h 2)))))))
 
     (define/private (my-get-client-size)
       (get-two-int-values (lambda (a b) (get-client-size a b))))
@@ -2198,7 +2199,7 @@
       (set! lbl l)
       (on-paint))
 
-    (super-instantiate (mred proxy parent -1 -1 -1 -1 null))
+    (super-instantiate (mred proxy parent -1 -1 -1 -1 '(transparent)))
 
     (set-background-to-gray)
 
diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index 7eae8973..45adee16 100644
--- a/collects/mred/private/kernel.ss
+++ b/collects/mred/private/kernel.ss
@@ -118,6 +118,7 @@
     on-size
     on-set-focus
     on-kill-focus
+    set-phantom-size
     get-y
     get-x
     get-width