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

hacks to support a map as entities.

Browse Source
This commit is contained in:
Remington Covert
2015-03-04 13:37:06 -08:00
parent 942b3ae7f4
commit a78b703b8d
1 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/play_clj/core_listeners.clj
View File

@@ -190,14 +190,16 @@ in the `screen`."
(doto (.getViewport renderer) (doto (.getViewport renderer)
(.setCamera camera) (.setCamera camera)
(.setWorldSize (. camera viewportWidth) (. camera viewportHeight))))) (.setWorldSize (. camera viewportWidth) (. camera viewportHeight)))))
([{:keys [^Stage renderer ui-listeners]} entities] ([{:keys [^Stage renderer ui-listeners]} [entities]]
(doseq [^Actor a (.getActors renderer)] (doseq [^Actor a (.getActors renderer)]
(.remove a)) (.remove a))
(doseq [{:keys [object]} entities] (doseq [e (vals entities) ]
(let [object (:object e)]
(when (isa? (type object) Actor) (when (isa? (type object) Actor)
(.addActor renderer object) (.addActor renderer object)
(doseq [[_ listener] ui-listeners] (doseq [[_ listener] ui-listeners]
(.addListener ^Actor object listener)))) (.addListener ^Actor object listener)))))
(remove-input! renderer) (remove-input! renderer)
(add-input! renderer))) (add-input! renderer)))