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))
(image! :set-size (- cell-w 16) (- cell-h 16)))))
(.addActor (:object (make-label (str " " (or blurb name)))))
))
save-object)]
@@ -418,15 +419,28 @@
(= :continue actor-key)
(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)
(do
(if (text-button! e :is-checked)
(do
(label! (-> entities :save-menu :save-label) :set-text (:name (:save e)))
(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)))
(do
(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))))
(:chapter e)