From 06eb14573b4518f4d91dfcc0f4b76bc28c9900e9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 7 Feb 2009 18:13:33 -0600
Subject: [PATCH] ui.gadgets.panes: set background color of labels to
page-color
---
basis/ui/gadgets/panes/panes.factor | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index cc2db3ff3b..594c798df8 100644
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -259,7 +259,9 @@ M: pane-block-stream dispose
unnest-pane-stream write-gadget ;
M: pane-stream make-block-stream
- pane-block-stream new-nested-pane-stream ;
+ [ pane-block-stream new-nested-pane-stream ]
+ [ drop page-color swap at* [ background associate ] when ]
+ 2bi [ <style-stream> ] when* ;
! Tables
: apply-table-gap-style ( style grid -- style grid )