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

Store all listeners in the screen atom and add macros to call methods on them

Browse Source
This commit is contained in:
oakes
2014-05-10 12:37:55 -04:00
parent 7e5b8738f0
commit e0deae642a
3 changed files with 89 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/play_clj/core.clj
View File

@@ -69,6 +69,8 @@
(normalize (func screen-map old-entities)))
(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!))
; update screen when either the screen or entities are changed
(add-watch screen :changed (fn [_ _ _ new-screen]
(update-screen! new-screen)))
@@ -94,8 +96,7 @@
:hide #(execute-fn! on-hide)
:pause #(execute-fn! on-pause)
:resize #(execute-fn! on-resize :width %1 :height %2)
:resume #(execute-fn! on-resume)
:input-listeners (global-listeners options execute-fn!)}))
:resume #(execute-fn! on-resume)}))
(defmacro defscreen
"Defines a screen, and creates vars for all the functions inside of it. All
@@ -432,8 +433,8 @@ via the screen map.
[^Game game & screens]
(let [add-inputs! (fn []
(input! :set-input-processor (InputMultiplexer.))
(doseq [{:keys [input-listeners]} screens]
(doseq [listener input-listeners]
(doseq [{:keys [screen]} screens]
(doseq [[_ listener] (:input-listeners @screen)]
(add-input! listener))))
run-fn! (fn [k & args]
(doseq [screen screens]