From cbf8dfd85ad3185ce4b2215aeb78eb3cd2434142 Mon Sep 17 00:00:00 2001 From: oakes Date: Sun, 29 Dec 2013 22:04:00 -0500 Subject: [PATCH] Allow setting the :state field --- common/src/play_clj/core.clj | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/common/src/play_clj/core.clj b/common/src/play_clj/core.clj index 04f17a9..4f8cfe2 100644 --- a/common/src/play_clj/core.clj +++ b/common/src/play_clj/core.clj @@ -26,7 +26,7 @@ (defn defscreen* [{:keys [on-show on-render on-dispose on-hide on-pause on-resize on-resume - renderer camera] + state renderer camera] :as options}] (let [screen (atom {}) on-show (or on-show (fn [s])) @@ -60,6 +60,7 @@ :add-entity add-entity :rem-entity rem-entity :upd-entity upd-entity) + (when state (swap! screen assoc :state state)) (on-show @screen)) (render [delta-time] (swap! screen assoc :total-time (+ (:total-time @screen) delta-time))