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

slides: support 'f' to toggle fullscreen view

db4
Slava Pestov 2009-09-18 14:36:06 -07:00
parent 07591e8e22
commit fc288c0e05
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/slides/slides.factor
View File

@ -19,10 +19,14 @@ CONSTANT: stylesheet
{ wrap-margin 1100 } { wrap-margin 1100 }
} }
} }
{ code-style { code-char-style
H{ H{
{ font-name "monospace" } { font-name "monospace" }
{ font-size 36 } { font-size 36 }
}
}
{ code-style
H{
{ page-color T{ rgba f 0.4 0.4 0.4 0.3 } } { page-color T{ rgba f 0.4 0.4 0.4 0.3 } }
} }
} }
@ -101,6 +105,7 @@ SYNTAX: STRIP-TEASE:
{ T{ button-down } [ request-focus ] } { T{ button-down } [ request-focus ] }
{ T{ key-down f f "DOWN" } [ next-page ] } { T{ key-down f f "DOWN" } [ next-page ] }
{ T{ key-down f f "UP" } [ prev-page ] } { T{ key-down f f "UP" } [ prev-page ] }
{ T{ key-down f f "f" } [ dup fullscreen? not set-fullscreen ] }
} set-gestures } set-gestures
: slides-window ( slides -- ) : slides-window ( slides -- )