framework: change status line so they never contribute to the minimum width of the frame
related to PR 10880
This commit is contained in:
parent
cdf38a259b
commit
b2a297afaf
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user