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-page
0 over set-slider-max 0 over set-slider-max
dup slider-opposite dup slider-opposite
2dup <elevator> pick add-elevator dup <elevator> pick add-elevator
2dup <up-button> pick add-up 2dup <up-button> pick add-up
2dup <down-button> pick add-down 2dup <down-button> pick add-down
dupd <thumb> pick add-thumb ; <thumb> over add-thumb ;
: <x-slider> ( -- slider ) @{ 1 0 0 }@ <slider> ; : <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 ; << solid >> boundary set-paint-prop ;
: button-theme ( gadget -- ) : button-theme ( gadget -- )
dup << gradient @{ << gradient f @{
@{ 240 240 240 }@ @{ 240 240 240 }@
@{ 192 192 192 }@ @{ 192 192 192 }@
@{ 192 192 192 }@ @{ 192 192 192 }@
@{ 96 96 96 }@ @{ 96 96 96 }@
}@ >> interior set-paint-prop }@ >> interior set-paint-prop ;
dup @{ 96 96 96 }@ foreground set-paint-prop
<< solid >> boundary set-paint-prop ;
: editor-theme ( editor -- ) : editor-theme ( editor -- )
bold font-style set-paint-prop ; bold font-style set-paint-prop ;
@ -31,7 +29,7 @@ USING: arrays gadgets kernel sequences styles ;
red background set-paint-prop ; red background set-paint-prop ;
: elevator-theme ( elevator -- ) : elevator-theme ( elevator -- )
dup << gradient @{ dup << gradient f @{
@{ 64 64 64 }@ @{ 64 64 64 }@
@{ 96 96 96 }@ @{ 96 96 96 }@
@{ 128 128 128 }@ @{ 128 128 128 }@