From 21ba80aa7e6bc7730d247a645aa3c65e4ea3fb00 Mon Sep 17 00:00:00 2001
From: Bryce Covert <bryce@liffft.com>
Date: Thu, 18 Feb 2016 19:29:02 -0800
Subject: [PATCH] pausing and resuming.

---
 desktop/last-release                          | 2 +-
 desktop/src-common/advent/screens/credits.clj | 4 ++++
 desktop/src-common/advent/screens/title.clj   | 4 ++++
 3 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/desktop/last-release b/desktop/last-release
index c739b42c..ea90ee31 100644
--- a/desktop/last-release
+++ b/desktop/last-release
@@ -1 +1 @@
-44
+45
diff --git a/desktop/src-common/advent/screens/credits.clj b/desktop/src-common/advent/screens/credits.clj
index 3569105e..7a95a6c1 100644
--- a/desktop/src-common/advent/screens/credits.clj
+++ b/desktop/src-common/advent/screens/credits.clj
@@ -96,6 +96,10 @@
        :the-end (assoc (utils/get-texture "the-end.png") :x 0 :y 0 :scale-x 4 :scale-y 4 :origin-x 0 :origin-y 0)
        :tweens {:fade-in
                 (tween/tween :fade-in screen [:fade :opacity] 1.0 0.0 5.0 :ease tween/ease-out-cubic)}}))
+
+  :on-pause (fn [_ _]
+              (utils/set-fullscreen! false)
+              nil)
   
   :on-render
   (fn [{:keys [^FitViewport viewport] :as screen} [entities]]
diff --git a/desktop/src-common/advent/screens/title.clj b/desktop/src-common/advent/screens/title.clj
index 9e1f42c8..d4bcd07f 100644
--- a/desktop/src-common/advent/screens/title.clj
+++ b/desktop/src-common/advent/screens/title.clj
@@ -372,6 +372,10 @@
             ]
         (merge entities (:main-menu entities)))))
 
+  :on-pause (fn [_ _]
+              (utils/set-fullscreen! false)
+              nil)
+
   :on-render
   (fn [{:keys [^FitViewport viewport] :as screen} [entities]]
     (.apply viewport)