slides: use toggle-fullscreen.

diff --git a/extra/slides/slides.factor b/extra/slides/slides.factor
index 8b02fbdc47ef6bdf129f9779f7fa0078cc870191..8e90d9132e11b9d9d3ad54897e2de96b5b16e656 100644 (file)
--- a/extra/slides/slides.factor
+++ b/extra/slides/slides.factor
@@ -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 -- )