ui.gadgets.panes: set background color of labels to page-color

db4
Slava Pestov 2009-02-07 18:13:33 -06:00
parent 9f49139057
commit 06eb14573b
1 changed files with 3 additions and 1 deletions

View File

@ -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 )