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

new accessors

db4
Doug Coleman 2008-09-02 12:35:42 -05:00
parent 6607d8c47e
commit b210f43768
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/slides/slides.factor
View File

@ -61,7 +61,7 @@ IN: slides
: page-theme ( gadget -- ) : page-theme ( gadget -- )
T{ gradient f { T{ rgba f 0.8 0.8 1.0 1.0 } T{ rgba f 0.8 1.0 1.0 1.0 } } } T{ gradient f { T{ rgba f 0.8 0.8 1.0 1.0 } T{ rgba f 0.8 1.0 1.0 1.0 } } }
swap set-gadget-interior ; >>interior drop ;
: <page> ( list -- gadget ) : <page> ( list -- gadget )
[ [
@ -82,8 +82,8 @@ TUPLE: slides < book ;
[ <page> ] map 0 <model> slides new-book ; [ <page> ] map 0 <model> slides new-book ;
: change-page ( book n -- ) : change-page ( book n -- )
over control-value + over gadget-children length rem over control-value + over children>> length rem
swap gadget-model set-model ; swap model>> set-model ;
: next-page ( book -- ) 1 change-page ; : next-page ( book -- ) 1 change-page ;