steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2015-07-10 14:06:53 -07:00
parent df50480878
commit dce364faa2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/labels/labels.factor
View File

@ -32,7 +32,7 @@ M: label string<< ( string label -- )
{ [ dup string? ] [ ?string-lines ] } { [ dup string? ] [ ?string-lines ] }
[ not-a-string ] [ not-a-string ]
} cond } cond
] dip text<< ; inline ] dip [ text<< ] [ relayout ] bi ; inline
: label-theme ( gadget -- gadget ) : label-theme ( gadget -- gadget )
sans-serif-font >>font ; inline sans-serif-font >>font ; inline
@ -77,7 +77,7 @@ M: label gadget-text* string>> % ;
TUPLE: label-control < label ; TUPLE: label-control < label ;
M: label-control model-changed M: label-control model-changed
swap value>> >>string relayout ; [ value>> ] [ string<< ] bi* ;
: <label-control> ( model -- gadget ) : <label-control> ( model -- gadget )
"" label-control new-label "" label-control new-label