Move vivid colour in Browser header

To go with the green header in the Walker.
db4
nicolas-p 2015-07-21 19:35:51 +02:00 committed by John Benediktsson
parent b8b3362fa0
commit a35924d1a8
2 changed files with 3 additions and 3 deletions

View File

@ -35,7 +35,6 @@ H{
{ font-style bold } { font-style bold }
{ wrap-margin 500 } { wrap-margin 500 }
{ foreground COLOR: gray20 } { foreground COLOR: gray20 }
{ page-color COLOR: FactorLightTan }
{ inset { 5 5 } } { inset { 5 5 } }
} title-style set-global } title-style set-global

View File

@ -1,6 +1,6 @@
! Copyright (C) 2006, 2009 Slava Pestov. ! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays classes colors.constants combinators USING: accessors arrays classes colors colors.constants combinators
combinators.short-circuit compiler.units debugger fry help combinators.short-circuit compiler.units debugger fry help
help.apropos help.crossref help.home help.stylesheet help.topics help.apropos help.crossref help.home help.stylesheet help.topics
kernel models sequences sets ui ui.commands ui.gadgets kernel models sequences sets ui ui.commands ui.gadgets
@ -37,7 +37,8 @@ M: browser-gadget set-history-value
: <help-header> ( browser-gadget -- gadget ) : <help-header> ( browser-gadget -- gadget )
model>> [ '[ _ $title ] try ] <pane-control> ; model>> [ '[ _ $title ] try ] <pane-control> ;
CONSTANT: help-header-background COLOR: FactorLightTan CONSTANT: help-header-background
T{ rgba { red 0.9568 } { green 0.9450 } { blue 0.8509 } { alpha 1.0 } } inline
: add-help-header ( track -- track ) : add-help-header ( track -- track )
dup <help-header> { 3 3 } <border> dup <help-header> { 3 3 } <border>