getting rid of issue where state preserved on screens.

This commit is contained in:
Bryce Covert
2017-05-28 07:10:43 -07:00
parent cae423f2f0
commit 135b252062
2 changed files with 2 additions and 3 deletions

View File

@@ -367,10 +367,8 @@
(defscreen title-screen (defscreen title-screen
:on-show :on-show
(fn [screen entities options] (fn [screen entities options]
(let [ (let [[screen global-atlas] (utils/acquire-atlas screen "packed/global.atlas")
[screen global-atlas] (utils/acquire-atlas screen "packed/global.atlas")
[screen title-atlas] (utils/acquire-atlas screen "packed/title.atlas") [screen title-atlas] (utils/acquire-atlas screen "packed/title.atlas")
_ (println (:resources screen))
screen (utils/setup-viewport screen 1280 960)] screen (utils/setup-viewport screen 1280 960)]
(log/info "Starting title screen.") (log/info "Starting title screen.")

View File

@@ -776,6 +776,7 @@
(defn release-resources [screen] (defn release-resources [screen]
(doseq [resource (:resources screen)] (doseq [resource (:resources screen)]
(asset-manager! *asset-manager* :unload resource)) (asset-manager! *asset-manager* :unload resource))
(update! screen :resources [])
(app! :log "info"(str "Released resources " (.getDiagnostics *asset-manager*)))) (app! :log "info"(str "Released resources " (.getDiagnostics *asset-manager*))))
(defn make-anim-seq (defn make-anim-seq