ui.gadgets.panes: relayout when changing label contents

diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index 138e4e96704ced362ac4deb5e1e5014e8665d443..69d9557b6d3aa705c433a002b4d55f86bc69f42a 100644 (file)
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -376,7 +376,7 @@ M: styled-pane pane-label style>> "" <styled-label> ;
 
 : pane-text ( string style gadget -- )
     dup find-styled-label [ pick over style>> = ] [ f f ] if* [
-        2nip [ prepend ] change-text drop
+        2nip [ prepend ] change-text relayout
     ] [
         drop [ swap <styled-label> ] [ swap add-gadget drop ] bi*
     ] if ;