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

slides: use toggle-fullscreen.

db4
John Benediktsson 2015-08-04 21:09:04 -07:00
parent 98459613a8
commit 1c3981f7ed
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/slides/slides.factor
View File

@ -104,7 +104,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 ] } { T{ key-down f f "f" } [ toggle-fullscreen ] }
} set-gestures } set-gestures
: slides-window ( slides -- ) : slides-window ( slides -- )