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

View File

@ -104,7 +104,7 @@ SYNTAX: STRIP-TEASE:
{ T{ button-down } [ request-focus ] }
{ T{ key-down f f "DOWN" } [ next-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
: slides-window ( slides -- )