GTK+ 3: fix auto-resize of message%

This commit is contained in:
Matthew Flatt 2015-08-27 15:28:09 -06:00
parent b06ee46854
commit cb8f2ef3fd

View File

@ -618,9 +618,9 @@
(let ([req (make-GtkRequisition 0 0)]) (let ([req (make-GtkRequisition 0 0)])
(cond (cond
[gtk3? [gtk3?
(gtk_widget_show gtk) (unless shown? (gtk_widget_show gtk))
(gtk_widget_get_preferred_size gtk req #f) (gtk_widget_get_preferred_size gtk req #f)
(gtk_widget_hide gtk)] (unless shown? (gtk_widget_hide gtk))]
[else (gtk_widget_size_request gtk req)]) [else (gtk_widget_size_request gtk req)])
(set-size #f (set-size #f
#f #f