ui.gadgets.labels: trigger relayout when string changes.

diff --git a/basis/ui/gadgets/labels/labels.factor b/basis/ui/gadgets/labels/labels.factor
index 3bbffde960909b2c6ad76d3d8cf62ab51453255e..c95ac71bfb1daf58ebae4b9875cb9ded97a27f35 100644 (file)
--- a/basis/ui/gadgets/labels/labels.factor
+++ b/basis/ui/gadgets/labels/labels.factor
@@ -32,7 +32,7 @@ M: label string<< ( string label -- )
             { [ dup string? ] [ ?string-lines ] }
             [ not-a-string ]
         } cond
-    ] dip text<< ; inline
+    ] dip [ text<< ] [ relayout ] bi ; inline
 
 : label-theme ( gadget -- gadget )
     sans-serif-font >>font ; inline
@@ -77,7 +77,7 @@ M: label gadget-text* string>> % ;
 TUPLE: label-control < label ;
 
 M: label-control model-changed
-    swap value>> >>string relayout ;
+    [ value>> ] [ string<< ] bi* ;
 
 : <label-control> ( model -- gadget )
     "" label-control new-label