alt-click to zoom

rstudio · Jan 30, 2013 · bc404f7 · bc404f7
1 parent d7bccb0
commit bc404f7
Showing 1 changed file with 25 additions and 0 deletions.
diff --git a/src/cpp/session/resources/learning/slides.js b/src/cpp/session/resources/learning/slides.js
@@ -66,3 +66,28 @@ function notifySlideChanged(indexh) {
                                        commandsForSlide(event.indexh));  
   }
 }
+
+function revealEnterFullscreen() {
+
+   var element = document.body;
+
+   // Check which implementation is available
+   var requestMethod = element.requestFullScreen ||
+				           element.webkitRequestFullScreen ||
+				           element.mozRequestFullScreen ||
+				           element.msRequestFullScreen;
+
+   if (requestMethod) {
+      requestMethod.apply( element );
+   }
+}
+
+// alt-click to zoom
+(function(){
+document.querySelector('.reveal').addEventListener('click', 
+                                                   function( event ) {
+   if (event.altKey) {
+	   event.preventDefault();
+	   revealEnterFullscreen();
+   }
+});