getting rid of issue where state preserved on screens.
This commit is contained in:
@@ -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.")
|
||||||
|
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user