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

ui.gadgets.panes: simplify <styled-label>.

flac
John Benediktsson 2020-02-25 12:33:01 -08:00 committed by Steve Ayerhart
parent 69d6f7ccfb
commit a4b6397dc8
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -338,14 +338,12 @@ M: pane-stream stream-write-table
swap " " <word-break-gadget> apply-character-style add-gadget drop ;
: <styled-label> ( style text -- gadget )
[
<label>
apply-font-style
apply-background-style
apply-image-style
] keep [ blank? ] all? [
apply-presentation-style
] unless nip ;
nip ;
: pane-text ( string style gadget -- )
[ swap <styled-label> ] [ swap add-gadget drop ] bi* ;