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

ui fixes

cvs
Slava Pestov 2005-10-24 04:18:46 +00:00
parent 0ac1989859
commit b8fdc558fb
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/ui/sliders.factor
View File

@ -135,10 +135,10 @@ C: slider ( vector -- slider )
0 over set-slider-page
0 over set-slider-max
dup slider-opposite
2dup <elevator> pick add-elevator
dup <elevator> pick add-elevator
2dup <up-button> pick add-up
2dup <down-button> pick add-down
dupd <thumb> pick add-thumb ;
<thumb> over add-thumb ;
: <x-slider> ( -- slider ) @{ 1 0 0 }@ <slider> ;

8
library/ui/theme.factor
View File

@ -10,14 +10,12 @@ USING: arrays gadgets kernel sequences styles ;
<< solid >> boundary set-paint-prop ;
: button-theme ( gadget -- )
dup << gradient @{
<< gradient f @{
@{ 240 240 240 }@
@{ 192 192 192 }@
@{ 192 192 192 }@
@{ 96 96 96 }@
}@ >> interior set-paint-prop
dup @{ 96 96 96 }@ foreground set-paint-prop
<< solid >> boundary set-paint-prop ;
}@ >> interior set-paint-prop ;
: editor-theme ( editor -- )
bold font-style set-paint-prop ;
@ -31,7 +29,7 @@ USING: arrays gadgets kernel sequences styles ;
red background set-paint-prop ;
: elevator-theme ( elevator -- )
dup << gradient @{
dup << gradient f @{
@{ 64 64 64 }@
@{ 96 96 96 }@
@{ 128 128 128 }@