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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -259,7 +259,9 @@ M: pane-block-stream dispose
unnest-pane-stream write-gadget ; unnest-pane-stream write-gadget ;
M: pane-stream make-block-stream 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 ! Tables
: apply-table-gap-style ( style grid -- style grid ) : apply-table-gap-style ( style grid -- style grid )