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

save menu

Browse Source
This commit is contained in:
Bryce Covert
2015-11-04 22:39:45 -08:00
parent ceea690cfa
commit 34491066c0
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -417,10 +417,15 @@
(start-playing screen entities (:selected-save entities)) (start-playing screen entities (:selected-save entities))
(:save e) (:save e)
(do
(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)
(assoc entities :selected-save (:save e))) (assoc entities :selected-save (:save e)))
(do
(label! (-> entities :save-menu :save-label) :set-text "")
(text-button! (-> entities :save-menu :continue-button) :set-disabled true))))
(:chapter e) (:chapter e)
(start-playing screen entities (:chapter e)) (start-playing screen entities (:chapter e))