reflow frame as container before getting its size

svn: r9715 original commit: c383bfdab2243a54f0dd910f6b46039fdbec4cbd
2008-05-07 02:02:52 +00:00 · 2008-05-07 02:02:52 +00:00 · 6983202e09
commit 6983202e09
parent f95f866f5d
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