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

primitive save removal.

Browse Source
This commit is contained in:
Bryce Covert
2015-11-09 10:40:53 -08:00
parent d51ca289c3
commit f7cbb14c65
2 changed files with 25 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
desktop/src-common/advent/screens/title.clj
View File

@@ -245,6 +245,7 @@
(.addActor (:object (doto (image (texture screenshot)) (.addActor (:object (doto (image (texture screenshot))
(image! :set-size (- cell-w 16) (- cell-h 16))))) (image! :set-size (- cell-w 16) (- cell-h 16)))))
(.addActor (:object (make-label (str " " (or blurb name))))) (.addActor (:object (make-label (str " " (or blurb name)))))
)) ))
save-object)] save-object)]
@@ -418,15 +419,28 @@
(= :continue actor-key) (= :continue actor-key)
(start-playing screen entities (:selected-save entities)) (start-playing screen entities (:selected-save entities))
(:save-to-remove e)
(do
(utils/remove-save (:save-to-remove e))
(as-> entities entities
(dissoc entities :save-menu)
(assoc entities :saves-list (doto (utils/snapshot-screenshots)
println))
(assoc entities :save-menu (saves-menu entities (:renderer screen)))))
(:save e) (:save e)
(do (do
(if (text-button! e :is-checked) (if (text-button! e :is-checked)
(do (do
(label! (-> entities :save-menu :save-label) :set-text (:name (:save e))) (label! (-> entities :save-menu :save-label) :set-text (:name (:save e)))
(text-button! (-> entities :save-menu :continue-button) :set-disabled false) (text-button! (-> entities :save-menu :continue-button) :set-disabled false)
(.addActor (:object e) (:object (doto (make-button "X" :save-to-remove (:id (:save e)))
(text-button! :set-x 180)
(text-button! :set-y 120))))
(assoc entities :selected-save (:save e))) (assoc entities :selected-save (:save e)))
(do (do
(label! (-> entities :save-menu :save-label) :set-text "") (label! (-> entities :save-menu :save-label) :set-text "")
(.removeActor (:object e) (last (.getChildren (:object e))))
(text-button! (-> entities :save-menu :continue-button) :set-disabled true)))) (text-button! (-> entities :save-menu :continue-button) :set-disabled true))))
(:chapter e) (:chapter e)

11
desktop/src-common/advent/utils.clj
View File

@@ -121,6 +121,17 @@
(.write png f resized) (.write png f resized)
(.dispose png))))) (.dispose png)))))
(defn remove-save [id]
(let [prefs (.getPreferences (Gdx/app) "ticks-tales-saves")
saves (if (.contains prefs "saves")
(edn/read-string (.getString prefs "saves"))
[])
saves (filter (comp (complement #{id}) :id) saves)]
(.putString prefs "saves" (pr-str saves))
(.flush prefs)
(on-gl (let [f (FileHandle. (save-screenshot-file-name id))]
(.delete f)))))
(defn save-settings! [] (defn save-settings! []
(doto (.getPreferences (Gdx/app) "ticks-tales-saves") (doto (.getPreferences (Gdx/app) "ticks-tales-saves")
(.putString "settings" (pr-str @settings)) (.putString "settings" (pr-str @settings))