From a78b703b8d531afacef28b671dce9caf1b38b558 Mon Sep 17 00:00:00 2001 From: Remington Covert Date: Wed, 4 Mar 2015 13:37:06 -0800 Subject: [PATCH] hacks to support a map as entities. --- src/play_clj/core_listeners.clj | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/src/play_clj/core_listeners.clj b/src/play_clj/core_listeners.clj index 13123e3..d848abd 100644 --- a/src/play_clj/core_listeners.clj +++ b/src/play_clj/core_listeners.clj @@ -190,16 +190,18 @@ in the `screen`." (doto (.getViewport renderer) (.setCamera camera) (.setWorldSize (. camera viewportWidth) (. camera viewportHeight))))) - ([{:keys [^Stage renderer ui-listeners]} entities] - (doseq [^Actor a (.getActors renderer)] - (.remove a)) - (doseq [{:keys [object]} entities] - (when (isa? (type object) Actor) - (.addActor renderer object) - (doseq [[_ listener] ui-listeners] - (.addListener ^Actor object listener)))) - (remove-input! renderer) - (add-input! renderer))) + ([{:keys [^Stage renderer ui-listeners]} [entities]] + (doseq [^Actor a (.getActors renderer)] + (.remove a)) + (doseq [e (vals entities) ] + (let [object (:object e)] + (when (isa? (type object) Actor) + + (.addActor renderer object) + (doseq [[_ listener] ui-listeners] + (.addListener ^Actor object listener))))) + (remove-input! renderer) + (add-input! renderer))) (defmulti update-physics! (fn [screen & [entities]] (some-> screen :world class .getName))