framework: change status line so they never contribute to the minimum width of the frame

related to PR 10880
This commit is contained in:
Robby Findler 2010-12-30 07:29:46 -06:00
parent cdf38a259b
commit b2a297afaf

View File

@ -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)