From a4b6397dc8fff25f620328e0d4fa2257c002f83a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 25 Feb 2020 12:33:01 -0800
Subject: [PATCH] ui.gadgets.panes: simplify <styled-label>.

---
 basis/ui/gadgets/panes/panes.factor | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index d9b42677e1..fce19fa098 100644
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -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 ;
+    <label>
+    apply-font-style
+    apply-background-style
+    apply-image-style
+    apply-presentation-style
+    nip ;
 
 : pane-text ( string style gadget -- )
     [ swap <styled-label> ] [ swap add-gadget drop ] bi* ;