From 34491066c012b9ca168f739c7c181603252d9fc7 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Wed, 4 Nov 2015 22:39:45 -0800 Subject: [PATCH] save menu --- desktop/src-common/advent/screens/title.clj | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/desktop/src-common/advent/screens/title.clj b/desktop/src-common/advent/screens/title.clj index 94e424e2..5eaf47e8 100644 --- a/desktop/src-common/advent/screens/title.clj +++ b/desktop/src-common/advent/screens/title.clj @@ -418,9 +418,14 @@ (:save e) (do - (label! (-> entities :save-menu :save-label) :set-text (:name (:save e))) - (text-button! (-> entities :save-menu :continue-button) :set-disabled false) - (assoc entities :selected-save (:save e))) + (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) + (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) (start-playing screen entities (:chapter e))