ui.gadgets.labeled: flat colour on windows because of the gradient bug

2015-08-16 11:14:24 +02:00 · 2015-08-16 11:14:24 +02:00 · b81a5f9c7a
parent 2a7cc29693
commit b81a5f9c7a
1 changed files with 4 additions and 1 deletions
--- a/basis/ui/gadgets/labeled/labeled.factor
+++ b/basis/ui/gadgets/labeled/labeled.factor
@ -17,7 +17,10 @@ M: labeled-gadget focusable-child* content>> ;
    swap >label
    [ t >>bold? ] change-font
    { 0 4 } <border>
-    title-bar-gradient <gradient> >>interior
+    os windows =
+    [ toolbar-background <solid> ]
+    [ title-bar-gradient <gradient> ]
+    if >>interior
    f track-add ;

 : add-content ( content track -- track )