69 lines
1.8 KiB
Factor
69 lines
1.8 KiB
Factor
! Copyright (C) 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: gadgets-theme
|
|
USING: arrays gadgets kernel sequences styles ;
|
|
|
|
: solid-interior ( gadget -- )
|
|
<< solid >> interior set-paint-prop ;
|
|
|
|
: solid-boundary ( gadget -- )
|
|
<< solid f >> boundary set-paint-prop ;
|
|
|
|
: button-theme ( gadget vector -- )
|
|
dupd @{
|
|
@{ 240 240 240 }@
|
|
@{ 192 192 192 }@
|
|
@{ 192 192 192 }@
|
|
@{ 96 96 96 }@
|
|
}@ <gradient> interior set-paint-prop
|
|
dup @{ 96 96 96 }@ foreground set-paint-prop
|
|
<< solid >> boundary set-paint-prop ;
|
|
|
|
: editor-theme ( editor -- )
|
|
bold font-style set-paint-prop ;
|
|
|
|
: roll-button-theme ( button -- )
|
|
dup <rollover-only> interior set-paint-prop
|
|
<rollover-only> boundary set-paint-prop ;
|
|
|
|
: caret-theme ( caret -- )
|
|
dup solid-interior
|
|
red background set-paint-prop ;
|
|
|
|
: elevator-theme ( elevator vector -- )
|
|
dupd @{
|
|
@{ 64 64 64 }@
|
|
@{ 96 96 96 }@
|
|
@{ 128 128 128 }@
|
|
}@
|
|
<gradient> interior set-paint-prop
|
|
light-gray background set-paint-prop ;
|
|
|
|
: divider-theme ( divider -- )
|
|
dup solid-interior t reverse-video set-paint-prop ;
|
|
|
|
: display-title-theme
|
|
dup @{ 216 232 255 }@ background set-paint-prop
|
|
solid-interior ;
|
|
|
|
: menu-theme ( menu -- )
|
|
dup solid-boundary
|
|
<< gradient f @{ 1 0 0 }@ @{ @{ 216 216 216 }@ @{ 255 255 255 }@ }@ >>
|
|
interior set-paint-prop ;
|
|
|
|
: icon-theme ( gadget -- )
|
|
dup gray background set-paint-prop
|
|
dup light-gray rollover-bg set-paint-prop
|
|
gray foreground set-paint-prop ;
|
|
|
|
: world-theme
|
|
{{
|
|
[[ background @{ 255 255 255 }@ ]]
|
|
[[ rollover-bg @{ 236 230 232 }@ ]]
|
|
[[ foreground @{ 0 0 0 }@ ]]
|
|
[[ reverse-video f ]]
|
|
[[ font "Monospaced" ]]
|
|
[[ font-size 12 ]]
|
|
[[ font-style plain ]]
|
|
}} add-paint ;
|