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

Revert "slides: make it work on windows (no gradients)." 

This reverts commit 9d428cbcaf.
clean-macosx-x86-32
John Benediktsson 2015-08-17 09:43:54 -07:00 committed by Alexander Iljin
parent 3d56615d19
commit 74313e9b52
1 changed files with 8 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
extra/slides/slides.factor
View File

@ -57,35 +57,23 @@ CONSTANT: stylesheet
} format } format
] ($block) ; ] ($block) ;
: divider-interior ( -- interior )
os windows? [
T{ rgba f 0.25 0.25 0.25 1.0 } <solid>
] [ {
T{ rgba f 0.25 0.25 0.25 1.0 }
T{ rgba f 1.0 1.0 1.0 0.0 }
} <gradient>
] if ;
: $divider ( -- ) : $divider ( -- )
[ [
<gadget> <gadget>
divider-interior >>interior {
T{ rgba f 0.25 0.25 0.25 1.0 }
T{ rgba f 1.0 1.0 1.0 0.0 }
} <gradient> >>interior
${ default-font-size 67 * default-font-size 5/6 * } >>dim ${ default-font-size 67 * default-font-size 5/6 * } >>dim
{ 1 0 } >>orientation { 1 0 } >>orientation
gadget. gadget.
] ($block) ; ] ($block) ;
: page-interior ( -- interior ) : page-theme ( gadget -- gadget )
os windows? [ {
T{ rgba f 0.8 0.8 1.0 1.0 } <solid>
] [ {
T{ rgba f 0.8 0.8 1.0 1.0 } T{ rgba f 0.8 0.8 1.0 1.0 }
T{ rgba f 0.8 1.0 1.0 1.0 } T{ rgba f 0.8 1.0 1.0 1.0 }
} <gradient> } <gradient> >>interior ;
] if ;
: page-theme ( gadget -- gadget )
page-interior >>interior ;
: <page> ( list -- gadget ) : <page> ( list -- gadget )
[ [