reflow frame as container before getting its size

svn: r9715
2008-05-07 02:02:52 +00:00 · 2008-05-07 02:02:52 +00:00 · c383bfdab2
commit c383bfdab2
parent f810570330
1 changed files with 2 additions and 0 deletions
--- 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