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

Allow setting the :state field

Browse Source
This commit is contained in:
oakes
2013-12-29 22:04:00 -05:00
parent 0b34952a93
commit cbf8dfd85a
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
common/src/play_clj/core.clj
View File

@@ -26,7 +26,7 @@
(defn defscreen* (defn defscreen*
[{:keys [on-show on-render on-dispose on-hide on-pause on-resize on-resume [{:keys [on-show on-render on-dispose on-hide on-pause on-resize on-resume
renderer camera] state renderer camera]
:as options}] :as options}]
(let [screen (atom {}) (let [screen (atom {})
on-show (or on-show (fn [s])) on-show (or on-show (fn [s]))
@@ -60,6 +60,7 @@
:add-entity add-entity :add-entity add-entity
:rem-entity rem-entity :rem-entity rem-entity
:upd-entity upd-entity) :upd-entity upd-entity)
(when state (swap! screen assoc :state state))
(on-show @screen)) (on-show @screen))
(render [delta-time] (render [delta-time]
(swap! screen assoc :total-time (+ (:total-time @screen) delta-time)) (swap! screen assoc :total-time (+ (:total-time @screen) delta-time))