Small change in roll button colour

db4
nicolas-p 2015-07-25 16:46:22 +02:00 committed by John Benediktsson
parent 883d7e09d9
commit 2e067a3705
2 changed files with 6 additions and 3 deletions

View File

@ -3,7 +3,7 @@
USING: accessors assocs classes colors.constants combinators USING: accessors assocs classes colors.constants combinators
combinators.short-circuit combinators.smart fry kernel locals combinators.short-circuit combinators.smart fry kernel locals
math.vectors models namespaces sequences ui.commands ui.gadgets math.vectors models namespaces sequences ui.commands ui.gadgets
ui.gadgets.borders ui.gadgets.labels ui.gadgets.packs ui.gadgets.borders ui.gadgets.colors ui.gadgets.labels ui.gadgets.packs
ui.gadgets.theme ui.gadgets.tracks ui.gadgets.worlds ui.gestures ui.gadgets.theme ui.gadgets.tracks ui.gadgets.worlds ui.gestures
ui.pens ui.pens.image ui.pens.solid ui.pens.tile ; ui.pens ui.pens.image ui.pens.solid ui.pens.tile ;
FROM: models => change-model ; FROM: models => change-model ;
@ -104,8 +104,8 @@ M: button-pen pen-foreground
{ 0 1/2 } >>align ; inline { 0 1/2 } >>align ; inline
: roll-button-theme ( button -- button ) : roll-button-theme ( button -- button )
f COLOR: black <solid> dup f f <button-pen> >>boundary f roll-button-rollover-border <solid> dup f f <button-pen> >>boundary
f f COLOR: dark-gray <solid> f f <button-pen> >>interior f f roll-button-selected-background <solid> f f <button-pen> >>interior
align-left ; inline align-left ; inline
PRIVATE> PRIVATE>

View File

@ -15,6 +15,9 @@ CONSTANT: line-color COLOR: grey75
CONSTANT: column-title-background COLOR: grey95 CONSTANT: column-title-background COLOR: grey95
CONSTANT: roll-button-rollover-border COLOR: gray50
CONSTANT: roll-button-selected-background COLOR: dark-gray
CONSTANT: source-files-color COLOR: NavajoWhite CONSTANT: source-files-color COLOR: NavajoWhite
CONSTANT: errors-color COLOR: chocolate1 CONSTANT: errors-color COLOR: chocolate1
CONSTANT: details-color COLOR: SlateGray2 CONSTANT: details-color COLOR: SlateGray2