From b2a297afafd3ff9e38c451e522cf54ed3c39e31e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 30 Dec 2010 07:29:46 -0600 Subject: [PATCH] framework: change status line so they never contribute to the minimum width of the frame related to PR 10880 --- collects/framework/private/frame.rkt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/collects/framework/private/frame.rkt b/collects/framework/private/frame.rkt index 21b1e5cee8..d343afb481 100644 --- a/collects/framework/private/frame.rkt +++ b/collects/framework/private/frame.rkt @@ -470,12 +470,13 @@ ;; make-new-status-line-msg : symbol string -> status-line-msg (define/private (make-new-status-line-msg id msg-txt) - (make-status-line-msg - (instantiate message% () - (parent status-line-container-panel) - (stretchable-width #t) - (label msg-txt)) - id)) + (define msg + (new message% + [parent status-line-container-panel] + [stretchable-width #t] + [label ""])) + (send msg set-label msg-txt) + (make-status-line-msg msg id)) (inherit get-eventspace) (define/private (do-main-thread t)