From 5657b6e9b1fec77180ffc8ed9cc889ee6ee85d7e Mon Sep 17 00:00:00 2001
From: oakes <zsoakes@gmail.com>
Date: Fri, 10 Jan 2014 13:30:54 -0500
Subject: [PATCH] Make sure a new InputMultiplexer is made when set-screen! is
 called

---
 src/play_clj/core.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/play_clj/core.clj b/src/play_clj/core.clj
index 5ea4de7..a5d110a 100644
--- a/src/play_clj/core.clj
+++ b/src/play_clj/core.clj
@@ -97,7 +97,6 @@
   [{:keys [on-create] :or {on-create dummy}}]
   (proxy [Game] []
     (create []
-      (input! :setInputProcessor (InputMultiplexer.))
       (on-create this))))
 
 (defmacro defgame
@@ -107,6 +106,7 @@
 (defn set-screen!
   [^Game game & screens]
   (let [add-inputs! (fn []
+                      (input! :setInputProcessor (InputMultiplexer.))
                       (doseq [screen screens]
                         (add-input! (:input screen))
                         (add-input! (:gesture screen))))