From 6983202e0905c549b511dd5ffbf0f3b62018ae53 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 7 May 2008 02:02:52 +0000
Subject: [PATCH] reflow frame as container before getting its size

svn: r9715

original commit: c383bfdab2243a54f0dd910f6b46039fdbec4cbd
---
 collects/mrlib/switchable-button.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/mrlib/switchable-button.ss b/collects/mrlib/switchable-button.ss
index ba478b69..92e2af78 100644
--- a/collects/mrlib/switchable-button.ss
+++ b/collects/mrlib/switchable-button.ss
@@ -133,6 +133,8 @@
                                         [stretchable-height #f]))
                 (new yellow-message% [parent float-window] [label label]))
 
+              (send float-window reflow-container)
+
               ;; position the floating window
 	      (let-values ([(x y) (client->screen (floor (get-width))
 						  (floor