Only create input listeners when screen is first created

2014-05-10 13:11:53 -04:00
parent c2565e86f2
commit 4f9d300e0b
1 changed files with 3 additions and 1 deletions
--- a/src/play_clj/core.clj
+++ b/src/play_clj/core.clj
@@ -70,7 +70,9 @@
                                   (wrapper screen)
                                   (reset-changed! entities old-entities)))))]
    ; add the input listeners to the screen atom
-    (swap! screen assoc :input-listeners (input-listeners options execute-fn!))
+    (when-not (:input-listeners @screen)
+      (->> (input-listeners options execute-fn!)
+           (swap! screen assoc :input-listeners)))
    ; update screen when either the screen or entities are changed
    (add-watch screen :changed (fn [_ _ _ new-screen]
                                 (update-screen! new-screen)))