disabled when not available.

This commit is contained in:
Bryce Covert
2015-11-04 21:49:30 -08:00
parent 66b446c16c
commit 917eeef526

View File

@@ -181,9 +181,14 @@
is-starting? (= "Begin quest" start-playing-label)]
(make-table [[ (make-button start-playing-label :key :continue-or-start) :height 32]
:row
[ (make-button "Load" :key :load) :height 32]
[(doto (make-button "Load" :key :load)
(text-button! :set-disabled (not (seq (utils/snapshot-list))))) :height 32]
:row
[ (make-button "Chapters" :key :chapters) :height 32]
[(doto (make-button "Chapters" :key :chapters)
(text-button! :set-disabled (not (->> (utils/get-chapters)
(vals)
(filter identity)
seq)))) :height 32]
:row
[(make-label "Music" (color :white)) :height 32]
:row