notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Only create input listeners when screen is first created

Browse Source
This commit is contained in:
oakes
2014-05-10 13:11:53 -04:00
parent c2565e86f2
commit 4f9d300e0b
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/play_clj/core.clj
View File

@@ -70,7 +70,9 @@
(wrapper screen) (wrapper screen)
(reset-changed! entities old-entities)))))] (reset-changed! entities old-entities)))))]
; add the input listeners to the screen atom ; 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 ; update screen when either the screen or entities are changed
(add-watch screen :changed (fn [_ _ _ new-screen] (add-watch screen :changed (fn [_ _ _ new-screen]
(update-screen! new-screen))) (update-screen! new-screen)))